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| WRITESAVE Write Save Set 18-Sep-19 4 91: 13:6? Ax-11 Blis aifuair 32 v4.0-74 Page 
| 14-Sep-1984 11:54:09 BACKUP.SRC JWRIT ESAVE.B 2:1 
i; 1 1 MODULE WRITESAVE(ZTITLE -weite. seve Set’ 
3 § § IDENT = 
ls ds 
3 4 BEGIN 
3 5 005 : , 
: $ 1 i eeereereereerererenreeerereerereerereereereeeeeeeeeesereeeeeeeeeeeeeeeeeeete 
3 } te * 
\4 3 1 !® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
5 10 i 1 '® DIGITAL EQUIPMENT forP PORATION, MAYNARD, MASSACHUSETTS. * 
: 13 ; : Hd ALL RIGHTS RESERVED. r 
. ‘ef 
; ig ig 1 !® THIS SOFTWARE IS A gt pe UNDER A LICENSE AND MAY BE USED AND COPIED * 
3 14 14 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
3 15 15 1 !* INCLUSION OF a & ot LF a etbes OTICE. THIS SOFTWARE OR ANY OTHER 8 
3 19 1 1 te sd a a 34 EOF MA BE P OVIDED OR OTHERWISE MADE AVAILABLE TO ANY ® 
3 1 1 1 !e OTHER AS sae NO. TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
; Bog : :* ORANSFERRED e : 
. '¢ 
; 0 80 0 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; 1 1 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
3 ¢ 4 ¢ : ot CORPORATION. : 
. :* 
; 4 0024 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
3 2 + é } :* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. . 
. ® 
4 i 
: . 0038 : i cesianinnleninibeabeusaiaseentanaiedehaliadinieddiieabiaebishia abinbanadiaenameaimmmeaeionmaan 
3 9 00 1! 
; : boat } 'e¢ 
; ‘ 005¢ 1! FACILITY: 
3 + Z : Backup/Restore 
7. a HH ABSTRACT: 
; 7? 0037 1 This module contains routines to do the 1/0 involved in writing 
3 ; it ! save sets. 
; 004 ENVIRONMENT : 
; 0042 1 VAX/VMS user mode 
3 004 ' 
; 1 
3 1 
3 1 
; 1 v03-011 10510 19-JUL-1984 08:43 

3 0051 1 d FORWARD ROUTINE g S45 Seley Backspace 2 tape marks at the 

3 B3 ' ae of a save set instead of 3. 

: 054 1 v03-010 ACG0374 Andrew C. Goldstein, 17-Nov-1983 11:36 

3 82 : Allow save set to start on full sequential disk 

F 057 1 v03-009 ACG0332 Andrew C. Goldstein, | 29-Apr-1983 18:28 
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98 
99 
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-Sep-1984 01:13:47 AX-11 Bliss-32_V 
1foseo- 1944 t 4:09 BACKUP. SRC urites ive. 3 231 


Add suppers for file highwater mark; 


remove .832 from BACKDEF require file 
v03-008 aeeoser drew C. A ese 11-Apr-1983 13:53 
Allow appending ~ full t 
v03-007 ACG0313 Andrew C. nite 10-Feb-1983 23:07 
Check for minimum space on disk. 
v03-006 ACGO312 Andrew C. Goldstein 4-Feb-1983 11:46 
Get best effort volume label if /NOREW! IND 
v03-005 ACG0295 Andrew C. Goldstein, 22-Jul-1982 12:04 
Use volume number to index into Label list 
v03-004 ACG0292 Andrew C. Goldstein, 4-Jun-1982 18:29 
Fix label Length in sequential disk labels 
v03-003 ACG0289 Andrew C. Goldstein, 16-Apr-1982 16:33 
Check for software write lock on tape 
v03-002 ACG0276 Andrew C. Goldstein, 26-Mar-1982 19:07 
Clean up size checking in seq disk save sets 
v03-001 ACG0269 Andrew C. Goldstein, eRero1962 16:57 
Use normal mode write in tape error rewrites 
v02-015 ACG0257 Andrew C. Goldstein, 21-Jan-1982 18:51 
Add support for Lists of volume labels 
v02-014 ACG0256 Andrew C. Goldstein, 19-Jan-1982 22:02 
Add /PROTECTION and /OWNER to save set 
v02-013 precess Andrew C. Goldstein, 19-Jan-1982 15:56 
Use completion AST to detect E0T 
v02-012 ACG0243 Andrew C. Goldstein, 21-Dec-1981 8:31 
Detect EOT during write retries 
v02-011 MLJ0054 Martin L. Jack, 31-Oct-1981 15:03 
Implement network save sets. Move STAACP globals to common. 
v02-010 ACG0218 Andrew C. Goldstein, 11-Oct-1981 13:14 
Inhibit normal write error recovery on /INTERCHANGE 
v02-009 ACG0216 Andrew C. Goldstein insen=i96 16:28 
Fix spacing over empty files in /NOREW! 
v02-008 acoper’ Andrew Cc. Goldstein, 20-Jul-1981 15:32 
mplement sequential disk 
v02-007 ACG209 Andrew C. Goldstein, 5-Jun-1981 15:23 
Stop on excessive output error rate 
v02-006 MLJ0025 Bereta L. Jack, 8-May-1981 14:54 | 
Reorganize qualifier database. Move some global variables to 


common, Make routines non-global if possible. 
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vE Write Save Set 1b-se -1984 01:13:47 AX-11 Bliss-32 V4.0-74 
: mets ree rit to tts fig Sete oe 
1 1 
1 1 v02-005 7 60202 Andrew C. Goldstein, 23-Apr-1981 16:47 
} : x handling of /SAVE on magtapes 
1 1 v02-004 MLJ0020 artin bs Jack, 20-Apr-1981 21:56 
Implement /JOURNAL qualifier. 
v02-003 MLJ0010 Martin L. Jack, 25-Mar-1981 15:23 


Reorganize global storage. Delete Limiting of buffer coun 
D now does this Byevart gone references to OQUA_0 OUTe re 
to be RWSV_SAVE * FAB. “Change OQUA_FILE to OQUA_SAVE. 


V02-002 ACG0199 Andrew C. Goldst 9-Mar-1981 13:51 
Fix reference to uninit alized iia "tn WRITE BLOCK 


v02-001 -shedped Andrew C. Goldstein, 11-Feb-1981 19:34 
Make unrecoverable save set write errors fatal 


VFUN “SO OCDNOUE WH" OVOOneu' 


pole lololololololealelolelelololololololol ol olo) 


AOA OR 8 8 9 ot oo 8 


DONA UNE WN $0 ODBNO VE WN 0 OONOUEWN OO ONOU FWD "OOO~sOu 


1 1 

1 1 

1 1 

1 1 

1 1 

1 1 

1 1 

1 1 

1 1 

1 1 

1 1 

1 1 

1 1 

1 1 

1 1 

1 1 

1 1 

1 1 

1 1 

} } 

1 1 LIBRA Y (SYSSLIBRARY : LIB"; 

1 1 REQUIRE *SRCS: COMMON? 5 

! 43 REQUIRE "LIB$:BACKDEF’; 

14 1694 1 EXTERNAL LITERAL 

14 1695 1 BACKUP$_OPENOUT, 

14 1696 1 BACKUP$_FATALERR, 

14 1697 1 BACKUP$_WRITEERR, 

14 1698 1 BACKUP$_CLOSEOUT, 

14 1699 1 BACKUP$_LABELERR, 

14 1700 1 BACKUP$_MAXVOLS, 

14 1701 1 BACKUP$_NOTANS] 

14 1708 1 BACKUPS CONTINUED, 

14 1703 1 BACKUP$_DENSITY 

15 1704 1 CKUPS$~WRITERRS, 

15 1705 1 BACKUPS_SAVSETCLU, 

15 17 1 BACKUP$_ SOF TWERRS 

15 1707 1 BACKUPS” “STARTVERIFY, 

15 1708 1 BACKUPS$_RESUME ; 

15 1709 1 

15 1710 1 FORWARD ROUT 

15 1711 1 WRITE_AST : NOVALUE , 
15 zie 1 WRITE-ERROR VALUE , 
15 1713 (1 WRITE-BLOCK OVALUE , 
160 1714 (1 INIT_SAVE_DISK NOVALUE , 
161 1715 1 INIT" SAVE TAPE NOVALUE , 
168 1716 1 INIT“OUT_SAVE : NOVALUE , 
16 1717 «1 WRITE BUFFER : NOVALUE , 
164 718 1 F IN_OOT_SAVE : NOVALUE ; 
165 1719 1 

166 1730 1 

167 1721 1 GSDEFINE(); ! Define global common area 


a 3 
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fe ITE_AST (BCB, RO, R1, PC, PSL) : NOVALUE = 
' 

' 

: FUNCTIONAL DESCRIPTION: 

! This routine is called as a completion AST when a tape write 
: completes. It turns an EOT status into success and sets the 
global EOT flag. 

' CALLING SEQUENCE: 

: WRITE_AST (BCB, RO, R1, PC, PSL) 

' INPUT PARAMETERS: 

: BCB: (AST parameter) = address of BCB for this operation 

} RO: RO at time of AST 

' 

t 

1 

1 

t 

1 

1 

t 

t 

' 

t 

' 

! 

' 

t 

t 

! 

] 

‘ 


PC: PC at time of AST 
PSL: PSL at time of AST 


i IMPLICIT INPUTS: 
i NONE 


i OUTPUT PARAMETERS: 
NONE 


SPESLESELESPAL ASSIST ON ISS 


i IMPLICIT OUTPUTS: 
‘ COM_FLAGSCCOM_EOV): set if EOT encountered 
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74 
4 
75 ' ROUTINE VALUE: 
Bo a ‘ NONE 
4 75 ' SIDE EFFECTS: 
0 75 ! NONE 
04 75 
05 75 == 
06 75 
07 76 BEGIN 
08 76 
09 76 MAP 
49 oe BCB : REF BBLOCK; ! BCB argument 
\§ 76 ! Check for EOT status. Further qualification is not necessary since 
17 this routine is only invoked when writing tape. 
15 76 
1 76 If .BCBCBCB_IO_STATUS] EQL SSS$_ENDOF TAPE 
1 7 THEN 
3 77 GIN 
1 77 COM_FLAGSCCOM_EOV) = TRUE; 
? 77 BCBIBCB_IO_STATUS) = TRUE; 
77 END; 
4 77 
77 


END; ! End of routine WRITE_AST 


se 
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WR 


WR ATE SANE Write Save Set 


«PSECT COMMON,NOEXE, OVR,2 


00000 GLOBAL_BASE: 
00000 FREE_LIST: 

LKB 
00008 INPUT wait: 
00010 REREAD wilt: 
00018 OUTPUT_WAIT: 


LKB 
00020 JPI_UIC: “BLKB 
$0054 4 JPI-USERNAME : 


-BLKB 
00030 JPI_DATE: 

.BLKB 
00038 JPI_NODE. DESC: 

“BLKB 
00040 JP1_CURPRIV: 
00048 sv1_vERSiON: 


«B 
0004C SYI_SID:.BLKB 
00050 RwS?_ HOLD_LIST: 


00058 RWSV -encign 
00098 RWSV_ AUTODIN: 
000D8 RWSV_ FILESET ID: 
QO0EO RWSV_VOLUME ID: 
000EC RWSV._VOL NUMBER: 
OOOEE RWSV_SEG -NUNBER: 
OOOFO RWSV_FILE_NUMBER: 
000F4 RWSV_SAVE QUAL : 
OOOF8 RWSV_SAVE FAB: 
000FC RUSV_CHAN: 
00100 RSV_XOR_BCB: 
00104 RWSV_IN_SEQ: 
00108 RWSV_IN_SEG 

BL 


0010€ RWSV_IN_XOR SEQ: 
-BLRB 
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writ Set 
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iesrests ft 


00110 
00116 
00117 
00118 
0011C 
OOTIE 
00120 
00128 
0012C 
00130 
00134 
00138 
0013¢ 
00140 
00144 
00146 
00148 
00149 


0014C 
001BC 


001¢4 
0016 
001C8 
001C9 
OOI1CA 
001CB 
001CC 
00108 
OO1E4 


RWSV_IN OR RFA: 
RWSV -LOOKAHEAD: 
RWSV_ KORSIZE: 
RWSV_IN_ GROUP_ $1 
RWSV_IN_ERRORS: 
RWSV_IN_XORUSE : 
RWSV_IN_ORGERR: 
RWSV_IN_ VEN: 
RWSV_IN_ VBN 0: 
RWSV_ALLOC: 

. LK 
RWSV_EOF: 

= LK 
RWSV_OUT_SEQ: 
RWSV_OUT_VBN: 


bag 


SRR RF RF ONAN BRS = OO 


4 


“BLK 
RWSV_OUT_BLOCK_COUNT: 


“8 
RSV_OUT_ERRORS: 
RWSV_SEQ_ ERRORS: 


-BLKB 
RWSV_OUT_GROUP_COUNT: 


~BL 
RWSV PADDING: 
-BLKB 


QUAL : iets 
COM_SSNA “y 


COM VALID TYPES: 
COM_ FLAGS: 
COM PADDING: 
COM_BUFF “COUNT: 
COM_I _SEYCOUNT: 
COmM_O_ seiCOUNT 
COM_! _STRUCNAME 
COmM_O_ STAUCNAME: 
COm_O _BSRDATE: 
-BLKB 
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v04 
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Iesrelats aE 


OO1EC 
0020C 
00200 
0020€ 
0020F 
00210 
00210 
00214 
00216 
00218 
0021C 
00220 
00224 
00228 
0022C 
00230 
00234 
00238 
00240 
00248 
00248 
00250 
00258 
00260 
00268 
0026C 
00270 
00290 
00290 


ALT. ~SSNAME : 
INPUT ~~. 
INPUT _RTVPES 
-BLK 
OUTPUT FUNC: 
FAST_ _STRUGLEY: 
INPUT _BEG: 
~BLK 
INPUT_CHAN: 
~BLK 
INPUi_FLAGS: 
-BLKB 
INPUT PADDING: 
INPUT FAB: 
INPUT_NAM: 
BLK 
INPUT_BCB: 
~BLK 
INPUT QUAL: 
INPUT_BAD: 
LK 
INPUT BLOCK: Lm 
INPUT_MAXBLOCK: 
-BLKB 
INPUT_MEDIA_ ID: 
INPUT -NAMEDESC: 
INPUT -STATBLK: 
INPUT _HDR BEG: 
INPUT_CREDATE: 
-BLKB 
INPUT_REVDATE : 
-BLKB 
INPUT -EXPDATE: 
INPUT _BAKDATE : 
INPUT _FILEOWNER: 
INPUT oo 
INPUT -RECATIR: 
INPUT_HDR END: 
INPUT_END: 
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ite AX-11 Bliss-32 v4.0-76 Pa 
WRITE_AST = handle write completion AST . aad 


BACKUP. SRC JWRITESAVE .832;1 
00290 INPUT “proce tisr: 
00294 INPUT PLACEMENT: 
0029C INPUT_VBN t 
00244 INPUT _PLACE LEN: 
002A6 INPUT “Pabping ~e: 
002A8 OUTPUT BEG: 2 
002A8 OUTPUT_CHAN: 
OO2AC OUTPUT “Fines 
QO2AE OUTPUT “PADDING: 
00280 OUTPUT ripe ~ 
00284 OUTPUT NAM: - 
00288 OUTPUT sib: 
002BC OUTPUT or 
002CO OUTPUT -BAD: . 
002C4 OUTPUT et 
002C8 OUTPUT “er We 
002CC OUTPUT_ oO’ 
00204 OUTPUT_ATTBUF : 
00364 OUTPUT Ei" 
00364 LIST saaed “12 
00368 LIST sate oe 
0036C VERIFY ~F AB: . 
00370 VERIFY_USE COUNT: 
00374 VERIFY -0iAt: 
00378 COMPARE AG: 
0037C FAST saad 
00380 FAST eek 1 ee 


L 
00384 FAST_RVN: 
-BLKB 
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00385 
00386 
00388 


a B 
00388 FAST_IMAP_SIZE: 


0038¢ 


-BLKB 
00390 FAST_HDR_OFFSET: 
FAST_BOOT_LBN: 


00394 
00398 
00398 
0039C 
003A0 
003A4 
003A8 
OO3AC 
OO3AE 
00380 
00382 
00383 
00384 
00386 
00388 
0038C 
0030 
0034 
0038 


dosee 
03D 


00308 


1$-Se0-1986 01:15:47 


FAST PADDING: 
DIR_VERLIRIT: 
FAST_VOL_BEG: 


FAST_IMAP: 


FAST_VOL_END: 
JOUR_BUFFER: 
JOUR_DIR: 
JOUR_HIBLK: 
JOUR “erpixy 
JOUR -1neik" 
JOUR_FFBYTE: 
JOUR_ “anaifee 


LK 
JOUR ~STRUCT LEV: 


L 
JOUR_ COUNT: 
.BLKB 
JOUR_REVERSE : 
JOUR_EXS2: 
JOUR_PADDING: 


CHKPT_HIGH SP: 


CHKPT_LOW SP: 
CHKPT_STACK: 
CHKPT_VARS: 
-BLK 
CHKPT_STATUS: 


-BLKB 
IR PES: -BLKB 
R- CHA’ 


wa KB 
R_NAM: -BLKB 
R-DEV_DESC: 
IR 


LKB 
~SEL BIR: 


D 
C Ol 
DI 
DI 
DI 
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WRI TESAVE write Save Set 16-Sep-1986 01:13:47 - YAX-11_BLiss-3 P . 
“v0s WRITE_AST = handle write compietion AST 1goseont gee 71:52:05 EBAckur Seeduairesave 682: 1 aoe i 
-BLKB 8 | 
| OO3EO DIRSELATY: | 
| OO3EB DIR.STRUCLEV: 
| OOSE9 DIRLEvELs: | 
| OO3EA DIR FUNG | 
| OOSEB DIRSTATUS: 
| OO3EC DIR_STRING: 
| -BLK 320 

0052¢ DIR_STACK: 
KB 612 
00790 DIR_SP 4 


_SP: BLKB 
00794 DIR_SEL_LATEST: 


-BLKB 4 
00798 DIR_END:.BLKB 0 
00798 DIRTSCANLIMIT: 


-BLK 
0078¢ INPUT ATL: 
007c0 OUTPUT ATL: 
007C4 CURRENT_MTL: 

-BLKB 

007¢8 CURRENT. VB: 
007¢¢ CURRENT WCB: 
00700 ACL_FIB8 -DESCR: 


00708 ACL_FIB: -BLKB 
00818 ACLOLENGTH 


0081C ACL “ourréft® - 
00820 CRYP_IN_ CONTEXT: 
00824 CRYP_OU -EOMTEXT: 
00828 CRYP_DA ey Yee 
0082C CRYP_DATA a 
00834 CRYP DATA CODE : 

00838 CRYP DATA ia 

| 

| 

| 


> 


00840 CRYP_DATA 1V: 
00848 CRYP_DATA_CKSM: 
-BLKB 
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-EXTRN BACKUP$_OPENOUT 
-EXTRN BACKUPS_FATALERR 
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“EXTRN BACKUPS~RESUME 
.PSECT CODE,NOWRT,2 

0000 00000 WRITE_AST: 
WORD 


. Save nothing : 1723 
50 046 AC 00 00002 MOVL cB, R 3: 1769 
0878 «BF 18 Ad B1 00006 CMPW 24 (RO), #2168 : 
0B 12 0000C BNEQ 3 
00000000° EF 01 8 0000E B1SB2 a. COM_FLAGS : 1778 
18 AO 01 80 0001 MOVW * 26(RO) : 177 
04 00019 1$: RET : 1776 


; Routine Size: 26 bytes, Routine Base: CODE + 0000 


! wait for 1/0 completion 


H 4 

WRITESAVE Ur ite ‘Save Set 16-Sep-1984 01:13:47 AX-11 Bliss-32 V4.0-74 
v04 WRITE_ERROR = *nandle arite error 1e-sep-19 4 a Fae 14 EBACKUP. Ske WRITESAVE .832;1 
+ 225 1777 1 ZSBITL "WRITE_ERROR = handle write error’ 
E g 1778 ROUTINE WRITE-ERROR (ERR_BCB) : NOVALUE = 
He a 
3 7 ; i FUNCTIONAL DESCRIPTION: 
. ¢ 1784 1: This routine handles an error writing data to the output 

; if 5 ; } save set. 

; 235 1787 1: CALLING SEQUENCE : 

: 7 8 1 WRITE_ERROR (ERR_BCB) 

: 238 1790 1 | INPUT PARAMETERS: 

: 4 ad : ERR_BCB: buffer control block on which the error occurred 

$261 1398 1 ' IMPLICIT INPUTS: 

Ooh 2 Bf ate 

: 266 1796 1 | OUTPUT PARAMETERS: 

O° 2 49 | lee 

: 26 1999 1 | IMPLICIT OUTPUTS: 

Bob Sib} alles 

: 250 1808 1 | ROUTINE VALUE: 

Peo mat a 

: 3g 1805 1 ! SIDE EFFECTS: 

; 254 1806 1! NONE 

3 55 1807 1! 

3 56 1808 1 !-<- 

3; 257 1809 1 

moe wm 

: 260 1812 BUILTIN 

; 261 181 INSQUE, 

: 6¢ 1814 REMQUE ; 

ETE Sw 

; #4 1817 ERR_BCB : REF BBLOCK; ! BCB argument 

; 267 1819 LITERAL ; 
; $8 \3 ’ RETRY_COUNT = 32; ! number of times to retry a write 
; $ 18 ; LOCAL 

+ 271 18 FAB : REF BBLOCK, ! FAB of output file 

3 7 1824 BCB : REF BBLOCK, ! random BCB pointer 7 

3 7 1825 TEMP, ' temps to hold action routines 
> 27% 18 4 TEMP2: 

3 Le H ‘ 

: oF 1 

3 iB 0 

: 18 1 

; 18 § 


WAIN 


' 
78 WRITE BLOCK, ! write a buffer to output 
79 FREE_BUFFER, ' free a block buffer 
3 FILE-ERROR; : signal file related error 


Ly 
| 
| 
| 
| 
| 


1b 


4 ' 
Write Sa: $ep-1984 01:13:47 AX-11 Bliss-32 V4.0-74 Pp 3 \ 
WRITE_ER ‘Sat - ‘handle write error mae 1 tit Fa 4 BACKUP. SRCJWRITESAVE .B 2:1 wer RS ' 
! Asynchronous output errors are handled for tape and seq disk. What 
5 ' we do is first us t for completion of all p ending writes, ignoring 


completion status, since they are now Fg 


FAB = .RWSV_S 
Rusy v out toll 1 GRRORS + 
-BBLOCK otic DEV], DEVSV_ sép3 


a 2 HF, QUAL _I 
THEN 
BEGIN, 
FREE_BUFFER (.ERR_BCB); 
FILEERROR (BACKUPS _WRITEERR*+STSSK_SEVERE, .FAB, .ERR_BCBLBCB_10_STATUS)); 
END; 
UNTIL REMQUE (.OUTPUT_WAITCOJ, BCB) 
BEGIN 
TEMP] : -BCB BB. suc CC_ACT 1; 
TEMP2 = AIL_ACTI; 
BCB 5B. SuCe eA t f 
Bc BCB FAIL- “ACT ; 
5 aCe BCB_ cei ACT -TEMPI; 
Bc {8CB FAIL~ACT 
END 
4 
4 
4 
4 
E 


TEMP2: 
QUE T.BCB; “RWSV _HOLD_LISTC1}); 


PE AMAMNMAMNTI & ya? 
WO: IDNA E WO ONO UE WO 0O@ 


oo 
oa 


! Iterate in the following loop until either we get the block in question 


Hee) : written successfully or the operator gives up. 
866 : ete case medium offline, since it steorty won't go away by itself. 
th , ¢ eck the output error rate. If it is excessive, complain. 
869 
870 WHILE TRUE 
871 dO 
o76 BEGIN 
87 IF mee OuT panes GTRU 190 
874 COUNT / .RWSV_OUT_ERRORS LSSU 10 
are hor -COM_ FLAGSCCOM” CONTINUE) ~ 
77 
a TRISOUE ( -ERR_BCB, Busy HOLD_LIST(O)); 
879 FILE ERROR TBACKUPS Ww Ue) STR RRS be ve -ERR_BCBCBCB_IO_STATUS)); 
880 COM_FLAGSCCOM_CONTIRUE 
881 REMOVE (ERR "ace. BCB); 
88 END: 


Now attempt to rewrite the block in error. Wait for completion and 
check status; retry until it succeeds or we lose patience 

Note that the first rewrite is done with error recovery inhibited, 

as are normal writes. After the first retry, we enable normal error 
recovery in the driver. me reason for this is that for some unknown 
reason, errors sometimes get stuck" in the tape controller even 
though the tape is good. The driver's error retry sequence appears 


SEEE 


onoe 
oOone 


ee a em em ee ee ee a ee ee ee ed ed ed dd dd 


oo0cocaD 
O@o 


WRITESAVE Write Save Set 1b-se $ep-1984 01:13:47 AX-11 Bliss-32 V4.0-74 Pp 14 
| URITE.ERROR = - handle write error 12-808= 138 a: 4:09 BACKUP. SRC JWRITESAVE .832;1 _ (3) 
ls 39 } ; : to clear them when simple transfer operations don't. 

: 189 

ls ! + ECR J FROM RETRY_COUNT TO 1 

; 1 96 4 BEGIN 

3 1897 4 RWSV_OUT_BLOCK COUNT = .RWSV_OUT BLOCK_COUNT + 1; 

l; 1 98 4 WRITE BEOtE (ERR xe58-. 4. NEG RETRY_COONT); 
13 1 4 ERR BCBLBCB FAIL 

: 1900 4 REMGUE (.ERR_B ecb: 6 BCB); 

: 1901 4 WAIT (.ERR_BTB) 

3 1998 4 If ERR gc8 BC a 10_STATUS) 

: 1 4 HEN EXITLOOP; 

; 1904 4 RWSV_OUT_ERRORS = .RWSV_OUT_ERRORS + 

: 1905 4 IF ofa _brat ace 10.STATOS) EQL SS$ MEDBFL 

3 1906 4 OR .ERR-BCB(BCB_JO_STATUS) EQL SS$"VOLINV 

3 1907 4 THEN EXTTLOOP; ~ 

3 1308 END; 

; 1319 IF .ERR_BCBCBCB_IO_STATUS] THEN EXITLOOP; 

; Iie INSQUE (.ERR_BCB, Rusy HOLD_LISTCO)); 

; 1 191 FILE ERROR (BACKUP FATALE RR, .FAB, .ERR_BCBLBCB_IO_STATUS]); 

; ; 1914 REMOUE ( (.ERR_BCB, urate): 

: 1919 END; 

3 5 1919 ! Now re-issue the writes on all the other buffers that were queued 

: 1918 ! for write. The presumption is that if the above write finally 

: 7 ah : succeeded, these will now, too. 

: 9 1921 

3 0 19 ¢ UNTIL REMQUE (.RWSV_HOLD_LIST(OJ, BCB) 

: 371 19 D 

: 37 1924 BEGIN 

: 37 1925 RWSV OUT BLOCK COUNT = .RWSV_OUT_BLOCK_COUNT + 1; 

: 374 1936 WRITE BLOCK (.6CB); 

; 375 19 ND: 

3 7 1928 

: 37 1929 END; ! End of routine WRITE_ERROR 

-EXTRN WAIT, WRITE_BLOCK 
-EXTRN FREE_BUFFER, FILE_ERROR 
O3FC 00000 WRITE_ERROR: 
“= ,WORD Save Re RS R4,R5,R6,R7,RB,RP ; 1778 
59 900000006 99 9E 0000 MOVAB WRITE_ BLOCK, . Rd F 
: 0000000G 00 9€ 000 MOVAB AIT, R j 
4 44 00 9E Bog MOV FILE_ERROR, R 3 
¢ 0000' EF 9 991 MOV RWSV"OUT ERRORS, R6 : 
B46 Ab OD 3 MOVL  RWSVSAVE f : 1839 
B6 000 INCH = RWS our ERRORS > 1840 
05 40 AS —1 | 4 BBC #5, 64(FAB), 1$ : 1841 
1D 16 46 1 €1 9 BBC #1 QUAL +14. 2$ 3 Hg 
5 04 AC DO 000 ; 1$: MOVL  ERR_BCB, R2 > 184 
52 DD 000 PUSHL R2 3 
| 


1 


ae 


| 
\ 
Page 15 | 
K 4 “11 Bliss=32 v4.0-742_ Rt. \ 
| 1e-Sep-1986 41:50:09 EBackuP’SReSuairesave (682: 
| Write Save Set reer 14-Sep-19 ; P 
| MEL TE RAVE WRITE_ERROR = handle write e Seas CALLS 8) ap ReE BUTTER : 1846 
Vv "ae ; ; 
| corte wk x i push SBACKUPS_WRITEERRS4 F : 
| or 000000006 e +4 , CALL At fone. 1866 
| me Bed eS Boe porns, 2 
| A 0 - 08 nove (BCB). TEMP : 1895 
3 36 3 CLRG $(BcB) > 185 
0 Ag 7C O005A PUSH, BC : 1858 ; 
6 FB 0008 move Tenet 32cace> 1859. 
? > 36(BCB) : 1860. i 
ze r 3 3 Boek TNSOUE (BCBs, aRueV HOLD LIST#4 ; 1850 : 
FFIO 06 BA rf 0071 38: CREW —-RUSV_OUT_ERRORS, #100 fads 
6 : 4s ; / 
0064 BF 7 BLEQU RORS, RO : ° 
. SB Bt S00 Set a, : : 
6 C? 000 CMPL RO, #1 : : 
50 FC AG D1 000 : 1875 : 
: } 1E 000 + #5, COM_FLAGS, 4$ ; 1878 : 
6 5 £0 008 Pee oue @ERR acé, RWSV_HOLD_LIST : 1879 e 
21 pete ft 0% BC OF 00088 MOVL RR_BCB, R3 3 : 
FFOC 09 ), =(SP) ; : 
"3 AS 8c 00095 ROVIWL 24(R3), 
E ” DD 00099 PUSHE #BACKUPS_ WRITERS ; | ; 
ooooo000s 8F DD 00098 CAS | oe THLE TEROOR > 1880 | : 
3 FB OOOAT Bish #33, COMTELAGS : 1881, : 
67 2 OO0A4S Oi Soue (R 5 : 1898 PS 
a ee ae pee! 
53 7. & es Pt Rvs Dut eLock count 1898 | 
a 00086 Chet 3. w82 ; | : 
54 D1 00088 ys ae ; : 
20 02 ha sis Piet (SP) : | : 
$ PB door)» eAL'S H2  ,URITE BLOCK i 1999, ; 
wes 24 =A be 00C4 REMGUE <R3)> BCB : 1901 | 3 
r c3 OF Bg0e! iat a ‘Ben oes 
5 ” sf DD $06 che of WAIT > 1902 ; 
Rs EB bos BLBS —.24(R3), 7S 3 1904 : 
3 1 A E 00 InCW BUS V OUT ERRORS : 1905 ‘ 
66 BO 9000! CMPU = 24(R3), #420 : 1906. ; 
O1A4— BF 18 OA i B00} ree. g4(R3), #596 ; 1296 ; 
0254 8F 18 AS By Booey 3) 1510 : 
4 5 bo Oo0Ee 78: age gRR CB, RO : 1912. : 
f0 rT Ab f i Fusoue nO), RSV HOLD_LIST : 191 i 
CB, 
FFOC £6 0 Re D0 000F8 MOVL =—-ERR_ 


WRITESAVE Write Save Set YRS “1 1:13:47 AX-11 Bliss-3 p 6 
‘Woe=600 WRITE_ERROR = handle write error 35071382 i i: 09 BACKUP. SRC JWR uaite sive 682; ;1 _ (3S 
| 7E 18 OA 3¢ OF mOvZuL 24 (R3), -(SP) : 
000000006 8F DD 001 PUSH svcrye PATALERR : 
$7 FB 001 CALL Ene 5 
2 F 0010C REMQUE : 191 
FFSF 31 OO10F BRw ; 187 
| 52 FFOC 6 ' ie 8$ REMQUE ven a. L187. BcB 3 192 
FC =—AG D6 00119 INCL § RWSV_OUT_BLOCK_COUNT : 192 
; DD O011C PUSHL ; 19 
69 oi Fe Hi CALLS ai. WRITE_BLOCK Bag 
04 $15 9% RET : 1956 


; Routine Size: 292 bytes, Routine Base: CODE + OO1A 
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ZSBTTL mite BLOCK = write save set block’ 
GLOBAL ROUTINE WRITE_BLOCK (BCB, RETRY) : NOVALUE = 


BS 
os se 


1e4 
1 


; FUNCTIONAL DESCRIPTION: 


This routine issues a write 1/0 for the specified buffer 
onto the output save medium. 


WOOODOOOOOO 


Soon ss 


$ 
B 
1 1 
1 1 
1 1 
1 1 
1 1 
1 1 
1 1! 
1 7 2 
38 1 
1940 1 ! CALLING SEQUENCE: 
oh! } } WRITE_BLOCK (BCB, RETRY) 
1948 1 ! INPUT PARAMETERS: 
1944 1! : buffer control block to be written 
1945 1! RETRY: (optional) ? for normal no-retry tape write 
+ : } for write with error recovery enabled 
| 1 ! IMPLICIT INPUTS: 
1949 1! NONE 
1950 1! 
1951 1 ! OUTPUT PARAMETERS: 
1326 1! NONE 
1953 1! 
1954 1! IMPLICIT OUTPUTS: 
1955 1! NONE 
1328 1! 
195? 1. ! ROUTINE VALUE: 
Hb .% NONE 
1959 1! 
1960 1 ! SIDE EFFECTS: 
1961 1! NONE 
1336 1! 
1963 1 !-- 
1964 1 
1965 BEGIN 
1208 
196 BUILTIN 
1208 ACTUALCOUNT, 
196 
1970 INSQUE; 
1971 
1306 MAP 
Hb 4 6CcB : REF BBLOCK; ! buffer control block arg 
1975 LOCAL 
1278 STATUS, ' general status value 
197 HDR_ SUM, ' CRC of block header 
1978 BLOTK_SUM, ' CRC of entire bloc 
1979 BUFFER : REF BBLOCK, ! data buffer being written 
1389 RAB : REF BBLOCK, ' output RAB 
1981 BLOCK_COUNT ' number of blocks about to be written 
Hs § BLOCKS_ALLOC; ' blocks receiver from allocator 
1984 EXTERNAL ROUTINE 
1985 FREE _BUFFER, ' free an 1/0 buffer 
1986 Sw] TCH_VOLUME , ! switch to desired disk volume 


a ey 


N 4 
WRITESAVE Write Save Set 16-Sep-1984 01:13:47 AX-11 Bliss-32 V 
vOe WRITE_BLOCK - write save set block 137800- 1384 94552569 BACKUP.SRC uaites ive. é B82; ;1 
3; «4 1987 STA_EXTEND, ' extend save set file 
: : i + FILE_ERROR; ! signal file related error 
; 4 19 ' Set ointers and compute the CRC's. 
Wee te those ' 
> 4b 1998 BUFFER = .BCB(BCB_BUFFER); 
3 44 1994 2 BUFFER(BBHSW ete = 6; 
oe BE 
; 446 1999 IF -QOALCQUAL_ ERC) 
3 bb 1998 THEN CRC ( CRWSO AUTODIN MREF (1), BCBCBCB_SIZEJ, .BUFFER, BLOCK_SUM) 
; 46 1999 ELSE SUFFERTBBASY -NOCRE) = TRUE 
; 450 01 CRC (RUS ages. IREF (0), XREF (BBHSK LENGTH), .BUFFER, HDR_SUM); 
; 451 0 : BUF FER(BB UM) = ‘HDR 
; 43¢ 908 BUFFER atte =the s NOT .BLOCR_ SUA; 
: rte) 6 Issue the write 1/0 appropriate to the output medium. 
> 456 00 ; 
: 657 008 2 BCB(BCB_SUCC_ACT) = 0; 
; 438 009 BCBLBCB~FAIL-ACT) = WRITE_ERROR; 
; 460 011 ! Write through file system. 
Bh Bie § 
> 46 014 2 IF .QUALCQUAL_SS_FILEJ 
/ tes Sté THEN GIN 
3 466 O17 RAB = RWSV_SAVE_FABLFC_RAB); 
: 467 018 RAB RABSU.ASZ) = e ‘BCBEBCS SiZE); 
+ 468 01 RABLRABSL REF) = . BUFFER; 
+ 469 020 IF .RWSV_SAVE_FABLFABSV 610) 
; 470 021 4 STATOS = $WRITE (RAB = .RAB) 
> 471 0 : ELSE STATUS = $PUT (RAB = .RAB); 
: are 0 IF NOT .STATUS 
; 47 024 THEN rie _ERROR (BACKUP$_WRITEERR+STS$K_SEVERE 
7 474 025 »RW USV. SAVE. FAB , »RABCRAB$SL_STS], .RABLRABSL_STV)); 
> 475 0 6 FREE_BUFFER (.BCB); 
ae ae pa 
3 478 0 $ ELSE 
; $29 9 9 BEGIN 
> 4681 0 : ! Write to tape. 
: OBS Ss Og 
3 484 035 IF .BBLOCK CRWSV_SAVE_FABCFABSL_DEV], DEV$v_SQD) 
3: 485 8 § THEN 
; 486 4 BEGIN 
+ 48 P 0 ; 4 STATUS = $010 (CHAN = .RWSV_CHAN 
; 488 P 4 FUNC = (IF .QUALCQUAL_INTE) 
; 489 P 2040 4 or UF ACTUALEQUNT () GEQU 2 
: 490 P 2041 4 THEN .RETR 
; 491 P 4g 4 ELS ) 
+ 492 P 2048 4 THEN 10$_WRITELBLK 


a 


| 


-——_— —— — 


5 

WRITESAVE Write Save Set tes sen- 138% #1: 3:47 irre Bliss-32 vV4.0-74 

v04 WRITE BLOCK = write save set block 14-Sep-19 1:54:09 BACKUP. SRC JWRITESAVE.B32;1 

13; 693 P pee 4 ELSE 1OS_WRITELBLK OR JOSM_INHRETRY), 
: 694 & 5 64 EFN = BCB_S WRITE 

$695 P § 4 lose = ecetets_10s6), 
: 496 Pp 4 ASTADR = WRITE_AST, 

3 49 Pp 8 4 ASTPRM = .BCB 

3; 698 © 4 Pi = .BUFFER 

$ 699 P 950 4 P2 = .BCBC(BCB_S1ZE) 
; 500 0 4 ); 
: $01 0 ¢ 4 If NOT .STAT 
3 0 0 4 THEN FILE TERROR (BACKUPS WRITEERR+STSSK_SEVERE, 
; 50 054 4 AVE FAB, .STATUS); 
; 504 035 4 Bcerace STATE) = &ce S"W LTE; 

3 505 $ 4 INSQUE T.8CB, .OUTPUT soniie )); 
3 OS Be ‘ END 
3 08 $38 4 ! Write to sequential disk. Make sure space is available for both the 
3 09 060 4 ! current block, the next block, and the XOR block to follow. If the 
3 10 061 4 ! allocation fails, set EOV for force a volume switch before the next 
; 11 066 4 ! write. 
: \¢ 065 4! 
ae ) 064 4 
3 3i$ 065 3 
: 515 066 4 BEGIN 
; 516 067 4 CURRENT_MTL = .OUTPUT 
: 217 068 4 switch VOLUME (. Rusy vo. i 
: 518 069 4 BLOCK_COUNT = 8 cBCBCB LUMBER) / $12; 
; 519 070 4 uNILE” ;Rusy W ALOE LSSU 
; 520 07) 2 (iF QUAL GROU. VALUE] NEQ 0 
3 2 1 i tnen” -BLOCK_COUNT * 4 
3 ; 073 5 ELSE .BLOCK-COUNT * 3) 
3; > 074 & : 
; 526 2075 5 BEGIN 
3 252 2076 5 STATUS = STA_LEXTEND (1°30, BLOCKS_ALLOC); 
; 26 077 ‘5 IF STATUS 
3 Ser 078 5 THEN 
; 528 079 5§ RWSV_ALLOC = .RWSV_ALLOC * .BLOCKS_ALLOC 
: $29 080 5 
: 5 081 6 BEGIN 
3 531 O8¢ 6 COM_FLAGSCCOM_EOV) = 
; 3 083 6 EXITLOOP; 
; 084 5 D; 
3 34 085 4 END; 
3 Do° 086 4 
3 3 P 2087 4 STATUS = S$Q]0 (CHAN = .RWSV_CHAN 
: P 2088 4 FUNC = 10$_WRITEVBLK, 
; 538 P 2089 4 EFN = BCBS WRITE 
: 539 P 2090 4 10SB = BcBretB_10S6), 

E 40 P 2091 4 Pi = BUF 
> 541 P 2092 & P2 = .BCBCBCB_SIZE), 
: 4¢ P 2093 4 Pp = .RWSV_OUT_VBN 
3 2 094 4&4 
: 544 095 4 IF NOT .STATUS 
; 345 0 4 THEN FILE_ERROR (BACKUPS URITEERR*STS$K SEVERE, 
: 46 097 4 wS =SkV —E_ FAB, .STATUS); 
3; «54 098 4 ecerace STATE] = BCB S7W 
: 548 099 4 — T.8CB, .OUTPUT palit C1 ih); 
; 549 100 4 ity “but _VBN = .RWSV_OUT_VBN + .BLOCK_COUNT; 


—_——-—- — 


“WRITESAVE 
v4 


65 


65 


Write Save Set 
WRITE_BLOCK = write save set block 
101 4 RWSV_ALLOC = .RWSV_ALLOC = .BLOCK_COUNT; 
1 ¢ END; 
: END; 
105 END; ! End of routine 
EXTRN 
~EXTRN 
~EXTRN 
O3FC 00000 ENTRY 
59 00000000 0 9E 0000 MOVAB 
28 4444 444 F 0000 MOVL 
0000000 F Bae MOV 
SE 4 C2 0001 SUBL 
¢ 06 AC DO QOOTA MOVL 
5 0c A& DO OOOIE MOVL 
OOFE CS B84 00022 CLRW 
26 AS 04 00026 CLRL 
56 01 CE 00029 MNEGL 
10 5D a? 01 f 0002C BBC 
08 AG FFFFFFFF F A0 A7 00031 CRC 
6 50 pO 0003Cc MOVL 
04 #11 +9 BRB 
2c AS 01 88 00041 1$ B1SB2 
0100 =F 00 FF60 C7 OB 00045 2$ CRC 
OOFE C5 50 BO 0004 MOVW 
24 =A 56 D2 0005 MCOML 
90 AS 04 0005 CLAL 
260 AG FE7E CF 43 QO0SA MOVAB 
50 67 00 00060 MOVL 
41 63 A? 03 €1 00063 BBC 
52 50 AO 9E 00068 MOVAB 
22 «Ad 08 A& 80 0006C MOVW 
28 OA 55 bdO 00071 MOVL 
0B 16 AO 93 E1 00075 BBC 
2 0D OO07A PUSHL 
00000000G 00 01 FB pore CALLS 
98 11 0008 BRB 
2 DD 00085 3$: PUSHL 
00000000G 00 01 FB 00087 CALLS 
53 29 4 44 4%: MOVL 
08 5 0091 BLBS 
7E 08 Ag D 4d MOva 
DD 00098 PUSHL 
8 DD QO09A PUSHL 
69 4 FB 09C CALLS 
4 0D oF 5S PUSHL 
00000000G 00 01 FB Al CALLS 
= OA8 RET 
56 18 A& YE QOOAD 6S MOVAB 
4C 40 A0 5 ft ita C 
E 7C 0008 CLRO 
7E 7C 00084 LRO 
7E 08 <A& 3C 00086 MOVZWL 


5 
1b-sen-1984 91:1334 


7 AX-11 Bliss-32 v4.0-74 
09 BACKUP. SRC JWRITESAVE.852;1 


WRITE BLOCK 


SWITCH VOLUME, STA_EXTEND 
SYSSWRITE, SYSS$PUT 
SYS$Q10, STA_QIO 


WRITE _BLOCK, Save R2,R3,R4,R5,R6O,R7,RB,RP 
FILE ERROR, R 

#BACRUPS _WRITEERR+4, RB 

RWSV_SAVE_FAB, R7 


RO, BLOCK_ 
#1, 44(BUFFER) 
RWSV CRETE #0, #256, (BUFFER) 
HDR_SUM, 254(BUFFER) 
otk SUM, 36(BUFFER) 
WRITE ERROR, 36(R4) 


RWSV_SAVE_FAB, R 
#3, GUAL+TS, 6$ 


BUFFER 40(RAB) 
’ 2¢RO), 3$ 
i. SYSSWRITE 


#4, FILE_ERROR 
#1, FREE_BUFFER 
24(R4), RO 

#5, 64(R0), 118 
-(§P) 


= (SP) 
8(R4), =(SP) 


Page 


20 
(4) 


1931 


—s 


e2332 3 


SSose 
s33ss 


ooooo°co 
eT ee ee er 
—-OO0Onen 


Mmror 


WRIT 
v04 


AVE 


Write Save Set 
WRITE _BLOCK = write save set block 


1 
1 
30 BB OOO0BA 
FEO2 56 ze $ . 
09 62 A7 1 ES ¢ 
02 +5 1 000C 
1F CA 
04 08 ac €9 C 
DD 00000 7$: 
i 000 
7E 6030 F 3C 00004 8$: 
4 ag pe Boor $: 
000000006 99 Cc F G0 
0 OE 
09 EB OO0ES 
DD OO0EB 
g DD Q00ED 
: DD OOOEF 
9 0 4 OOF 1 
OA Ab 02 90 OOOFS 108: 
FF24 07 64 OE OO00FS 
04 O00FD 
06CC c? 06c8 Cc? »dO port 118: 
E F464 A? 3C 0010 
000000006 9 01 FB 00109 
08 <A& 3C 00110 
é O1FF CO 43 00114 
52 0 00000200 8F C? 00119 
OOA2 (C7 23 pots 12$: 
06 13 00125 
50 52 02 78 00127 
04 11 00128 
50 52 03 C5 00120 13 
50 38 42=60 A? COD oot 1 14 
¢0 1E 00135 
—E 0D 00137 
40000000 8F DD 00139 
000000006 99 3 4 tte 
06 —9 $o149 
38 OA? 6— CO Bates 
F 11 00150 
OOCE (C7 1 4 001 26 15 
oe Bie 16 
7E 04 00159 
44 —=C*«A D 00158 
7E 08 AG 3C HF; 
5 DD 0016 
Li ae 
35 dD b168 
04 A? ODD OO16A 
02 00 00160 
000000006 99 ? 08 81$t 
09 é E8 00179 
DD 0017C 


PM 


AM 


1:13:47 Ax-11 a) vV4.0-74 
CJWRITE 


4 
4 te 4:09 BACKUP. SR SAVE .832;1 
PUSHR #*M<R4,RS> 
PUSHAB WRITE_AST 
PUSHL 
BSS a QUAL +14, 7$ 
CMPB (AP), # 
BLSSU «8S 
BLBC REIRY, 8$ 
PUSHL #32 
BRB 9% 
MOVZWL #32800, =(SP) 
PUSHL RWSV_CHAN 
PUSHL 
CALLS #12, SYS$QI0 
MOVL , us 
BLBS STATUS, 10$ 
PUSHL STATUS 
PUSHL RWSV_SAVE_FAB 
PUSHL R 
CALLS #3, FILE_ERROR 
MOVB #2. 10(RZ) 
INSQUE (R4), @OUTPUT_WAIT+4 
MOVL § OUTPUT_MTL, CURRENT_MTL 
MOVZWL RWSV_VOL_NUMBER, -(5P) 
CALLS #1, SwITCH_ VOLUME 
MOVZ2WL 8(R4), RO 
MOV 11(R6), RO 
iv. #512, _R6, BLOCK_COUNT 
STB QUAL+78 
BEQL 
ASHL #2, BLOCK_COUNT, RO 
MULL3 #3, BLOCK_COUNT, RO 
CMPL. RWSV_ALLOT, RO 
BGEQU 16S 
PUSHL SP 
PUSHL #1073741824 
CALLS #2, STA_EXTEND 
VL RO, STATUS 
BLBC STATUS, 15$ 
ADDL2 BLOCKS_ALLOC, RWSV_ALLOC 
BRB 12$ 
BISB2 #1, COM_FLAGS 
CLRQ. 0. = ( §P) 
CLRL 0s = SP) 
PUSHL §RWSV_OUT_VBN 
MOVZWL 8(R4J, -TSP) 
PUSHL BUFFER 
CLRQ. =< SP) 
PUSHL 6 
PUSHL #48 
PUSHL RWSV_CHAN 
PUSHL 
CALLS #12, STA_QIO 
VL RO STATOS 
LBS STATUS, 17$ 
PUSHL STATUS 
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| 5 
WRITESAVE Save 18-5 e AX=-11 Bliss-32 v4.0-74 
¥Oe~580 URite bltks - ‘artes save set block 1 gee: 2h 1:23 4: ‘65 BACKUP.SR RC JuRITESAVE .B 2:1 
7 0D 0017 PUSHL RWSV_SAVE_FAB 
: DD 001 PUSHL 
69 FB 001 CALLS - FILE ERROR 
OA AG 02 90 00185 17$: MOvB 93 (RE) 
FF24 7 64 OF 00189 INSQUE aa) aoutPut WAIT#4 
4 OAT 52 CO 0018 ADDL BLOCK COUNT, RwSV_OUT_VBN 
380A? $2 ge go 186 SUBL BLOCK-COUNT, RWSV_ALLOC 


; Routine Size: 407 bytes, Routine Base: CODE + 013£ 
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/WRITESAVE Write Save Set 16-Sep-1984 01:13:47 A 
Yoe-000 INIT _SAVE_DISK = initialize save set disk 14-Sep-19 11:54:09 ts 
j 

is 1 1 ZSBTTL “INIT _SAVE_DISK = initialize save set disk’ 

a ; : ROUTINE INIT _SAVE_DISK (CONTINUE) : NOVALUE = 

i 109 1 !46 

ls 110 1! 
E ? i) : : FUNCTIONAL DESCRIPTION: 
13 6 118 . 3 This routine initializes an output disk volume for use as an 
; 4 18 : } offline save set disk. 

: 68 118 1 ! CALLING SEQUENCE: 

é re ii : : INIT_SAVE_DISK () 

; $9 119 1 ! INPUT PARAMETERS: 

3 0 120 1! NONE 

3 71 121 1! 

s Ms 1 ¢ 1 ! IMPLICIT INPUTS: 

s $7 1 7 3 NONE 

3; 574 1246 1! 

3 75 125 1 ! OUTPUT PARAMETERS: 

; 278 1 $ 1! NONE 

: 77 1 1 $ 

3 278 128 1! IMPLICIT OUTPUTS: 

3 79 129 1! NONE 

; 580 1 1! 

3 28) 131 1 =! ROUTINE VALUE: 

$ Hf 1 § 1! NONE 

Te .. 1 1! 

; 584 1 1 ! SIDE EFFECTS: ; 

3 #4 : 5 : disk initialized, corresponding VCB altered 

; 587 1 1 fe< 

; 588 138 «#1 

; 589 139 BEGIN 

; 590 140 

; 591 141 BUILTIN 

3 236 | FFC; 

3 9 14 

; 594 144 BIND 

; 595 145 

; 596 146 ! Home block file format string. 

: 536 148 5° 

$ 43 133 FORMAT_DESC = SDESCRIPTOR ("DECFILE11B") : VECTOR, 

; 601 151 !' Template attribute control List for create operation. 

3 ooe 13 : 

; 60 15 

3; 604 154 ATTCTL_TEMPLATE = UPLIT ( 

; 605 155 WORD (ATRSS_SEGNUM, ATRSC_SEGNUM), 
3 606 136 WORD (ATRSS-UIC, ATRSC_UIC), LONG ( 
; 607 15 WORD (ATRSS-FPRO, ATRSC_FPRO), LONG (6), 
; 608 138 WORD (ATRSS-CREDATE, ATRSC_CREDATE), LON 
; 609 15 WORD (ATRSS_REVDATE, ATRSC_REVDATE), LON 
: 610 160 wORD (2 ATRSC_ASCDATES), CONG (0), 
3; 611 161 LONG (05 

3; 612 162 Bg 
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5 
WRITESAVE Write Save Set 1$-sep-19 4 01: 3:47 orm Bliss-32 V4.0-74 
= J - initialize save se s -Sep- 254: . . 
INIT_SAVE_DISK initiali t disk 14-Sep-1984 11:54:09 BACKUP .SRC JWRITESAVE .B 
; 613 163 
3 ! Entries in the attribute control vector. 
614 164 '€ i i h ib l 
3 oi? 19? : 
; £19 189 MACRO 
: $18 198 ATT_POINTER (N) = ATT_CONTROLEIN®2¢1] 2%; 
; 620 136 LITERAL 
; 621 171 ATT_SEGNUM = 0, 
s 6 ¢ 176 ATT_UIC = 1, 
; 6 17 ATT“PROT . ¢° 
3 624 174 ATT-CREDATE = 3, 
; 625 175 ATT_REVDATE = 4, 
i 626 176 ATT-REVNUM = §, 
+ = 6*8 + 4; 
6 17 ATCTL_LENGTH 6*8 + 4 
BR HBF cu 
; 650 180 T_MODE, ! mode in which to mount output disk 
; 631 + STATUS ! general status value 
: 63¢ 1 é FAO_DESC : VECTOR £21, i string descriptor for FAO 
3 6 1 10_STATUS : VECTOR C4, WORD], ! 170 status block 
; 6 1 FAG : REF BBLOCK, ! FAB for save set file 
; 635 185 : REF BBLOCK, |! NAMe block for same 
3; 6 196 vcB : REF BBLOCK ! VCB for volume 
3; 637 H DEVICE CHAR : BBLOCK CO1SK LENGTH ! device characteristics buffer 
; 638 188 DEVCHAR_DESC =: VECTOR (2), ~! descriptor for above 
; 639 189 LP : REF BBLOCK, ‘! structure pointer 
; 640 190 P, : pyte pointer into index file bitmap 
; 641 191 c ! bit pointer into index file bitmap 
; 64¢ 19¢ F iLE_NUMBER, i free file number found 
: 64 19 FIB : BBLOCK CFIBSC_LENGTH], ! FIB for create call 
: 666 194 FIB_DESC : VECTOR $f ! descriptor for above 
; 645 195 NAME _DESC : VECTOR ! file name descriptor ; 
; 646 196 ATT_ CONTROL : VECTOR CATCTL_LENGTH/4), ! attribute control List 
3 647 197 FILE PROT, ! file protection attribute 
; 668 198 REV ' file revision number attribute 
; 649 199 BLOCK_COUNT, i size in virtual blocks of save set block 
3 030 $00 BLOCKS_ALLOC; ' block count returned from allocator 
: 636 20¢ EXTERNAL ROUTINE 
; 65 20 STA T, ! mount save set disk volume set 
: 654 204 REABY_DISK, ' ready save set disk volume 
; 655 205 FILE_ERROR, ' signal file related error 
: 626 soe SWITCH VOLUME, ' switch to specified volume 
: 6 0 INITIACIZE_VOLUME, ! init volume from summary parameters 
; 658 § 08 STA_ENTER ! make directory entry 
: 659 09 READ_HEADER, ' read file header block 
: 660 10 STA_EXTEND; ! extend output file 
: Bea 13 
5 ree 18 ! On the initial setup. prepare the mounted volume List and VCB's 
3; 664 14 ! for the save set volumes. 
3; 667 13 MOUNT_MODE = 1; 
; 668 H If NOT .CONTINUE 
3; 669 1 THEN 


| 
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POAAOAAAO 


ave Set 
VE _DISK = initialize save set disk 


RWSV 
! Find the VCB and set up context 
(.MOUNT_MODE) ; 
= TRUE; 
T 
HEN 


C 

T . T 
AND “Over Qu NIT] 

vCBLVC VOLSET] = TRUE; 


14-Sep 


H 5 
16-Sep-1 1:13:47 AX-11 Bliss-32 V4.0-74 
op-198e } 5 teAcKUP.SRe WRITESAVE.B 


1:54:09 


OUT _VBN = 1; 
IF NOT -GUALCQUAL_INIT] THEN MOUNT_MODE = 3; 


ma 


<< 


L_] 
B_NOT 
t volume Label. This comes from the disk if we are not 


initializing it; otherwise it comes from the command (either save set 
le name or /LABEL). The save set name in raw form also becomes the 


MEU —OOONOUVE WO o-te* 


SESSSSESE 


MEW —OVOONOUEWN Oo 


Cercecsecasase af 


IF QUAL CQUAL INIT} 
OR .VCBLVCB_NOTVOLSET) 


FAB 


BEGIN 
CHSCOPY “(BBLOCKEEABLEC NAM], NAMSB 


;BBLOCK 


FAB = .RWSV_SAVE_FAB; 
THEN 
i HM 
IF NOT .CONTINUE 
THEN 


C"NAMJ, NAMSL— 
$S_VOLNAME, ‘RWSV_VOLUME_{D); 


volume set name. Then append the volume number as two digits to the 
volume name if it did not come explicitly. 


ARES 


BEGIN 
CHSMOVE (HM2$S_VOLNAME, RWSV_VOLUME_ID, OUTPUT_MTLCMTL_STRUCNAME]); 
a (HM2$S_VOLNAME, RWSV_VOLUME-ID, COM_O_STRUCNAME) ; 


! If an explicit label was specified, get it. Use the segment number 


! to pick the right entry from the label 


list. If we are out of List, 


' 
' 
: use the first entry and append the volume number. 


IF .QUALCQUAL_LABE) 
THEN 


OOOnNOUEwN— 


PMOMIPUNONONYS 2 


SQN 


Ouwnfun— 


and 


SS Se A Ret ty ee tee = ~ 


BEGIN 
LP = .QUALCQUAL LABE LIST); 
DECR J FROM .RWSV_VOC_NUMBER-1 TO 1 


BEGIN 
LP = .LPCQUAL_NEXT); 
IF .LP EQL O THEN EXITLOOP; 


BEGIN 
END 
' 
rea 
Get the outpu 
ti 
LP = 0 
OR .CONTINU 
G 
E 
4 
4 
4 
4 
4 
4 
4 
4 
4 


IF .LP NEQ 0 
THEN CHSMOVE (HM2$S_VOLNAME, LPCQUAL_LABE VALUE], RWSV VO) UME 1D) 
ELSE CHSMOVE (HM2$S-VOLNAME, BBLOCK C.QUACCQUAL_LABE_LTSTJ, QOAL_LABE_VALUE], RWSV_VOLUME_ID); 


5 
WRITESAVE Write Save Set 1b-sap-19 91: 19:62 Ax-11 Bliss-32 V 
/vO6 INIT_SAVE_DISK = initialize save set disk 14-Sep-1984 11:54:09 BACKUP. SRC JWRITE 
's 727 77 END; 
‘EHS 75 se: 
7 0 BEGIN 
; 4 ; ; CHSMOVE (HM2$S_VOLNAME, OUTPUT_MTLCMTL_STRUCNAMEJ, COM_O_STRUCNAME); 
. 7 ; 
F 7 IF NOT .QUALCQUAL_INITJ 
; g 5 5 2 AND NOT .CONTINUE 
. BEGIN 
i @ 8 IF wCBLVCB_ CLUSTER NEQ 1 
8 Veh (BACKUP$_SAVSETCL 
3; 740 90 CH vt Oimioss VOLNAME, VCB Eve: * VOLNAME), RWSV_VOLUME_ID); 
> 761 91 RWSV_VOL “NUMBER = wcetvese 
: reg 38 ~— 
: 746 94 If .LP EQL O 
: 245 95 2 THEN sein 
: ree 3 = CHSFIND_CH (HM2$S_VOLNAME=2, RWSV_VOLUME_ID, * '); 
: 748 98 iF CHSFAIL 
: 749 99 THEN P = Rus _VOLUME_ID + HM2$S_VOLNAME = 2; 
: 920 Of pap -DESCEOS © ej 
: 3¢ Pp j $FAO. TRbEScRIPTOR ("!22L"), 
: rez 4 bz Pho » 
: 755 Pp 305 mee ero _NUMBER 
: 756 j; 
: Fee 368 a: 
: 759 309 ! Do the remaining setup for initialization. 
: 788 no? 
: 76¢ 1 IF .QUALCQUAL_INITJ OR .CONTINUE 
: 167 lz THEN EGIN 
: 765 15 OUTPUT_MTLCMTL_STRUCLEV] = 2; 
; 766 16 VCBLVCB_ODS_2)"= TRUE; 
: 768 18 DEVCHAR -ESCEOR = - D1BSK LENGTH; 
: 769 19 DEVCHAR- DESCEI 1CE_CHA 
: 770 9 SGETCHN™ (CHAN = = vCBLVCB™ CHANG. PRIBUF = DEVCHAR_DESC(O)); 
; ae ¢ Initialize the attributes buffer and call the initialize routine. 
: 77% 4 : 
: 775 5 CHSFILL (0, VSR LENGTH. OUTPUT_ATTBUF); 
: 7? 6 (OUTPUT_ATTBUF[USR_VOLNAME]) ="HM2$S_VOLNAME; 
; 77 (OUTPUT~ATTBUF LVSR~ VOLNAME )+4 = RWSU0_VOLUME_ ID; 
: 77 8 (OUTPUT~ATTBUF CVSR~OWNE RNARE}) = 12; * 
: 77 (OUTPUT~ATTBUF CVSR~OWNERNAME J) +4 = JPI SUSERNAME: 
: 780 0 (OUTPUT~AT TBUF CVSR7F ORMA ) = .FORMAT SCO}; 
+ 781 1 (OUTPUT~ATTBUF CVSR-FORMAT])+4 = 5 LOR Lye T DESC 1); 
: 78 : (OUTPUT “ATTBUF VSR =VOLDATE) = .JPI_DAIE 
: 78 (OUTPUTATTBUFLVSR-VOLDATEJ)+4 = Pipte _DATE i): 
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OUTPUT_ATTBUFCVSR_VOLOWNER) = F -QUALCQUAL_O_OWN UIC) 
THEN .QUAL QUAL 0 0_00N_ VALU] 

OUTPUT_ATTBUF[VSR_MAXFILES] = 15685 ree 

OUTPUT “AT TBUF LVSR “MAXF ILNUMD | = Ci rei ag CHARCDIBSL_MAXBLOCK] LSSU 4096 


OUTPUT TATTBUF EVER RVR = = 3 f° 
yp .RWSV_VOL_NUMBER; 


F OL NUMBER E 
tWEN OU rut TTBUF CVSR_RVNJ 
ouTPUT- yer Eves PROTECT = “dt ~ QUAL L_PROT) 
THEN .QUA CauRL PROT_VALUEJ 


L 
OUTPUT_ATTBUF[VSR_FILEPROT) = ELSE ix" 0 
OUTPUT “AT TBUF VSR ; 

LES) = = 93 
VSR Ow) = 
OUTPUT“ATTBUFCVSRILRU_LIMJ = 4; 


ee (.VCB, DEVICE CHAR); 


! Now create the save set file. Search the index file hema for an 
' available file number; we assume 1 for a sequence number 
On continuation volumes, we use the continuation file iD” instead. 


NAM = Ha ie i 
Vv 


CFABSL_S S 
FABSL“STV) = sta. OUT_CHAN; 


FID, = FIDSC Stitt 
NAMLNAMSW_F ID = FIDSC"CONTIN; 
FID = .RWSV- vo NUMBER; 


CH (. VCBCVCB_MAXFILIDX]/8, .VCBCVCB_IMAP], 2X'FF"); 


(BACKUPS _OPENOUT+STSSK_SEVERE, .FAB, SS$_IDXFILEFULL); 
TREF (8) 

.P = .VCBCVCB Imi) *8 + B+ 1; 

GTRU eB yCe. MAXF ILIDX 

(BACKUPS _ OPENOUTeSTS K_SEVERE, .FAB, SS$_IDXFILEFULL); 


lock and then attempt to read the header block, 
S present. Then make the directory entry. 


' Set the name 
' to make sure it 


res pores td | um) = FILE_NUMBER; 
NAMLNAMSW"FID7SEQ) = 1; 


 abdeve nat aot Ot is8-3 


<<£ 
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e Saye Set 6-Sep=1984 01:13:47 YAXe11_BLiss-32_v4.0-76 
TSSAVECDISK = initialize save set disk ifseoct9ge M1i52569 — EBAcKUp®SReSuai re Save 652; 


Poe §} 


os te 


NARENARSB F 1D _NMX «FILE NUMBER<16,8>; 


NAMCNAMSB-FID-“RVN) = .RWSV-VOL_NUMBER; 


NAMCNAMSW_DID NUM = 4: 
Ss . 
NAMCNAMSW-DID“RVNJ = .RWSV_VOL_NUMBER; 


tPtot : READ HEADER (NAMCNAMSW_FID], .OUTPUT_MTLCMTL_HEADER)); 
D .STATUS NEQ $S$_NOSUCHF ILE 
THEN FILE_ERROR (BACKUP$_OPENOUT+STSSK_SEVERE, .FAB, SSS$_IDXFILEFULL); 


SLFSFSES 


FVIII 
DOONAN E WH“ OOONOUE Ww 


Mur 


3 4 

d 

; 2 1 STA_ENTER (.FAB); 

; 85 4 ! Now set up the FIB, name descriptor, and attribute list and create 
; 85 40 i the file. 

Bo BE 

3 410 FiBvesceo) = FIBSC_LENGTH; 

: 1 411 FIB_DESCLI) = FI1B; 

: ¢ tig CHSFILL (0, FI JO5C LENGTH. F1B); 

3 41 FIBCFIBSB_WSIZE) = 

; 414 2 FIBCFIBSWFID_NUM) = NAMSW_FID_NUM); 

; 865 415 FIBCFIBSW_FID_SEQ) = NAM NAMSW_FID-SEQ); 

; £06 ois FIBLFIBSW_FID_RVN) = NAMSW_FID_RVNJ; 

: 41 FIBCFIBSW-DID-NUM) = 4; 

; 868 $13 FIBLFIBSW_DID_SEQ) = 4; 

; 9 41 FIBLFIBSW_DID_RVN) = 0; 

i 870 420 2 FIB FIBSL-EXVEN] = .RWSV_OUT_VBN; 

3 % 4 ¢ wae -BESCEO) = *NARENANSE NAM NAME] + .NAMCNAMSB_TYPE] + .NAMCNAMSB_VER]; 
3 7 r ? NAME_DESCC1) = .NAMCNAMSL_NAME J; 

; 75 425 CHSMOVE (ATCTL_LENGTH, ATTCTL_TEMPLATE, ATT CONTROL); 

3 6 4 $ ATT_POINTERLATT_SEGNUM] = RWSJ_SEG NU 

; 87 4 ATT_POINTERLATT_UIC) = (CIF unt oOAL 0 OuN vic) 

3 78 & THEN Q UAC. 6_OwN_VALU 

; 879 4 nt JP tay 

; 430 ATT_POINTERCATT_PROT) = ROT; 

; 881 431 2 ATT“POINTERLATT—CREDATE ‘ a MATE: 

; é 4 é ATT-POINTERLATT_REVDATE) = JPI~DATE; 

3 4 ATT-POINTERLATT_REVNUM) = eyes 

3 BBs 4 FILE_PROT = (IF~.QUALCQUAL PROT) 

3 5 435 THEN -QUAL[Q aURL _PROT_VALUE] 

3 a6 4 ELSE %x‘FAO0") 

; 44 r REVNUM = 1; 

3; 889 4 5 ' Set up a P6 attribute buffer to specify the file highwater mark. It 
; 890 440 i is initially set to -1 because it is indeterminate; if the save set 
; 4. ree: j only occuptes one volume it will be corrected on deaccess. 

: 89 44 

3 Ga CHSFILL (0, FAR_LENGTH, OUTPUT ro Haale 

> 895 445 2 OUTPUT_ATTBUFCFAR_HIGHWATER) = 


89 P 244 STATUS = S$QI1OW (CHAN = ik otk oun 


‘s 
ie 


vuvuvUvU 
PF ee 
DOONOUESW—OOW -- 


ya a eS 


oOOOOODOOOO 
a a dd 


ro heed 
WIN — SO CBNAOUESWN “OO OVNOUSWwN—O 
S 
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et Sep-1 1:13:47 AX-11 Bliss-32 V 
SK = initialize save set disk 1$-sep-1984 te 4:09 BACKUP .SRC uaiTes ive. 5 2:1 


10SB = 10_STATUS 

f rd = jo S_CREATE OR IOSM_CREATE OR IOSM_ACCESS, 
Pe = NARE aiid: 

PS = ATT CONTROL, 

Pb = OUTPUT _ATTB 


If .STATUS THEN stiru S 
IF NOT .STATUS THEN FIL 


RWSV_ALLOC = 0; 
RWSV~IN_VBN “0 = ,RWSV_OUT_VBN; 


! Do the initial allocation for the save set file. If there is 
i insufficient space for the minimum number of save set blocks that 


must go onto one medium, set up for an immediate volume switch. 


BLOCK_COUNT = (, seve, coun -BLOC_VALUEJ+511) / 512; 
WHILE ae vac rbd 
QUAL” rt VALUE NEQ 0 


THEN YBLOCK 
ELSE .BLOCK-COUNT * 3) 


T 
T 

10_STATUSCO 
ERROR (BarcoPd _OPENOUT+STSSK_SEVERE, .FAB, .STATUS); 


BEGIN 
STATUS = STA_EXTEND (1°30, BLOCKS_ALLOC); 
v » STATUS 


N 
RWSV_ALLOC = .RWSV_ALLOC + .BLOCKS_ALLOC 


BEGIN 
COM_FLAGSCCOM_EOV) = 1; 
EXITLOOP; 


END; 
END; ! End of routine INIT_SAVE_DISK 


31 31 45 « 4C 49 446 43 «(45 «(44 +4 4 P.AAB: oASCht QOECPILETION 

QOO000A O02EO P.AAA: “LONG 

00 . 3 E4 “ADDRESS. P. AAB 

00 00 ce P.AAC arn iS 40 

001 004 6 FO WORD 4, 21 
000000 ia + LONG 

00 00 F8 - WORD . 22 
0000 Be fs - LONG 

001 ; - WORD o 
9 00 04 -LONG 

00 - WORD - 18 
00000 6 - LONG 

00 1 - WORD . 13 
6 14 + LONG 
0 18 LONG 


$ 
oy 
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 WRITESAVE Write Save Set ep-1 1:13:47 AX-11 Bliss-32 V4.0-7%4 
“Yo4+000 INIT SAVE _DISK = initialize save set disk “ 330-1984 Mi i 09 BACKUP. SRC JWRITESAVE .852;1 
4c yp BARE SASCIE \!22L\ 
P.AAD: .LON 
' “ADDRESS P.AAE 
FORMAT_DESC= P.AAA 
ATTCTLTEMPLATE= _— P. AAC 
-EXTRN STA_MOUNT, READY_DISK 
eEXTRN INITIALI 
SEXTRN STA often “READ HEADER 
"EXTRN SYSSFAO, SYSS$GETCH 
-EXTRN STA_Q10W 
OFFC 00000 INIT_SAVE_DISK: 
“QORD Save R2,R3,R4,R5,R6,R7,RB,RI.R10,R11 
58 9900000 G 8F 0 9002 MOVL #BACKUPS Ope Nour 144, R14 
A 000000 EF 9E 0000 MOVAB RWSV_VOLOME ID, R10 
3E FEES ce 9€ 0001 MOVAB “4 SP), SP 
5 01 D 901 MOVL , MOUNT _MODE 
0c 04 AC €8 0001 BLBS § CONTINUE,~1$ 
5¢ AA 01 00 0001 MOVL #1, RWSV_OUT_VBN 
03 6 AA 5 €0 000 BBS 43, UAL710, 71$ 
50 3 D0 000 MOVL =s#3, UNT MODE 
0 DD 00028 1$ PUSHL mOUN ove 
000000006 99 oN FB 0002A CALLS READY _DISK 
0 pO 00031 MOVL nd. vCB 
07 A? 08 8 000 BISB2 #8. 7(VCB) 
09 04 aC E8 00038 LBS CONTINUE, 3s 
04 76 «AA 0 FI 0003¢ BC 8 QUAL #1 . 2s 
07 «A? 10 88 90041 BISB2 #16, 7(VCB) 
58 18 AA DO 00045 28: MOVL § RWSV_SAVE_FAB, FAB 
56 04 00049 CLRL OL 
09 76 «AA 05 EO 0048 BBS a5, QUAL +19 3$ 
05 04 aC EB 0005 BLBS CONT * 
4E 07 A? 04 FI 0054 BBC Wy ved) 
50 OOcF CB 9A 00059 38 MOVZBL Te 
0c 20 00EO0 08 30 2c 0056 vcS RO, AB) ho #32, #12, RWSV_VOLUME_ID 
10 04 AC EB 00066 BLBS § CONTINUE, 4$ 
5 0660 CA 006A MOVL OUTPUT MiL, RO 
24 Ad 6A C 006F MOVC + ROSY. ~ VOLUME _ ID, 36(RO) 
OOF 8 CA 6A C Been MOVC 4 RWSV~ “VOLUME — “1D. COM_O_STRUCNAME 
76 «AA O7A 4$ TST QuAc +10 
34 18 0007D BGEQ 0$ 
50 oopc CA OD OF MOVL  QUAL+80, RO 
6 0 4 MOVL LP 
51 0c AA 3C 00087 MOVZWL RWSV_VOL_NUMBER, J 
56 9? , $0 5$ ROVE (LP), LP 
4 ? 0 BEQL § 
8 1 5 0009 $$ SOBGTR J, 5$ 
$ D 95 7$ TSTL p 
1 9 BEQL $ 
6A 04 Ab ¢ é 99 moves #12, 4(LP), RWSV_VOLUME_1ID 
ry 04 Ad g¢ “8 p AO 8$ MOVC3 . 4(RO), RWSV_VOLUME_1D 
¢ OA BRB 
50 0660 CA DO O00A7 98 MOVL  OUTPUT_MTL, RO 


aaa oe 


walt Write Save Set 
INIT_SAVE_DISK = initialize save set disk 
00F8 & 4 Ad 
Rok @ 08 
1D g% Ag 
01 4 ar 
00000000G 8F 
000000 0G 09 1 
6A fe 4 
06 =A 
6 
) 
6A OA 
59 1 
84 
i 
FC 8=— AD 4 
7E 0 BA 
F AD 
7E 
FEFS = CF 
00000000" 00 04 
07 7> AA 05 
03 04 AC 
OODF 
50 O6EO CA 
1E AO 02 
07 A? pe 
FF74 §=6CD 4) F 
FF78 CD FF7C cp 
FF74 13 
E 
7E 08 A? 
000000006 00 05 
0070 = BF 6€ 00 
O1F4 =A 
pire CA oc 
1F8 =6OCA 6A 
O1FC =A oc 
00 CA FF44 «OCA 
be CA FEST = CF 
C «CA FF5O =6CCA 
07 78 AA 04 
50 OOAC fe 
50 FF40 fA 
O21c 86CA 0 
0228 CA O3E8 BF 
00001000 = BF EC 4 
50 1 
50 ; 
022c «2A 


bes2p-19 
12-808-138 
A 
o§ 108: 
i: 
i tes 
8 i 
§ 4 118: 
08 09 128: 
44 00R8 
i} i 
DS O00E 
8 OES 13$: 
12 OO0E 
9 OOOEA 
DO OOOEE 148: 
0 OOS 
Bc OOF 
F OOOFA 
D4 Garp 
OF OOOFF 
FB 00103 
LB os 
5 09115 
DO 00116 168: 
90 0011B 
88 0011¢ 
9A 00123 
le 
oF 90132 
Ge 
7B 0013¢ 
2¢ 0014 
O14A 
ge HS 
Fe 98t 3s 
9 0015¢ 
7 9016 
7 OO16A 
a 
MT 00178 
09 O17 178: 
90 189 188: 
ts 
a6 ig 
DO 00190 19: 
DO OO1A0 208; 


4 01:13:47 AX-11 Bliss-32 V4.0-74 
4 te 4:09 BACKUP. SRC wai re eAve 642:1 
MOVCS #12, 36(RO) 0_STRUCNAME 
BBS AS rime AF (3- 

BLBS CONTI és 

CMP 

BEQL ty" 

PUSHL rence A SAVSETCLU 

CALLS L {ass NAL 

Move Ap eves). RWSV_VOLUME_ID 
MOvVZaw 6(VCB), RWSV.VOL_NOMBER 

TSTL LP 

BNEQ $ 

Loce.—ts# e. #10, RWSV_VOLUME_ID 
BNEQ = 

CLAL sR 

MOVL R11, P 

BNEQ 148 

MOVAB RWSV_VOLUME_ID+10, P 

MOVL #2, FAO pest 

MOVL eS FAO Bes ESC +4 

MOVZWL RWSV vO NUMBER, (SP) 

PUSHAB FAO BES 

CLRL se 

PUSHAB P.A 

CALLS #4, AR YSSFAO 

BBS #5. QUAL+10 

BLBS ONT INUE, tas '° 

MOVL  OUTPUT_MTL, RO 

MOVE 4 , 30TRO) 

B1SB2 (VCB) 

MOVZBL ais DEVCHA 

MOVAB VICE _CHAR, RPC HAR _DESC+4 
PUSHAB DEVCHAR _DESC 

CLRL = = (SP 

MOVZWL 8¢ vce) -(SP) 

CALLS #5, SYSSGETCH HN 

moves #0; (SP), #0, #112, OUTPUT_ATTBUF 
MOVL #12, OUTPUT_ATTBUF 

MOVAB RuSV_V VOL UME “1D, OUTPUT_ATTBUF +4 
MOVL #12, OUTPUT "ATTBUF+ 

MOVAB JP] USERNAM NAMES OUTPUT ATTBUF #12 
MOV FORMAT DESC, OU TPuT RITBUF +16 
MOVa JPI_DATE, OUTPUT_ATTBUF +24 

BBC ry $12, 

MOVL vas** 4, R 

BRB 18$ 

MOVL JPI 

MOVL RO “buTéUT ATTBUF +40 

MOVZwL #1600, OUTPUT_ATTBUF+52 

CMPL DEVI Me _CHAR+1T2, #4096 

BGEGU 19$ 

MOVL #16, RO 

BRB 208 

MOVL #50, RO 

MOVL RO, OUTPUT_ATTBUF +56 


Pee Se Se Se Se Se Se Se Se Se Ge Ge Ge Se Se Ge Se Se Ge Fe Ge Se Ge Ge Ge Ge Se Ge Ge Ge Se Ge Se Be Fe Fe Ge Se Se Se Ge Se Ge Se Ge Se Ge Se Be Ge Se Be Se Se Se Se 


_ - — . _ -——$ 


é 
WRITESAVE Write Save Set 18-56 -1 1:13:47 AX-11 Bliss-32 V4.0-74 
—V04 INIT _SAVE_DISK = initialize save set disk 102388-1 382 94:52:86 BACKUP SRE URiTesave 6 2:1 
oeee CA 0201 #8F 8B 1A5 MOVW #513, OUTPUT_ATTBUF +64 
| cA C AA B 1a MOVW  §RWSV_VOL_NUMBER, OUTPUT _ATTBUF +66 
| 1 ¢ AA } 18 cAPY RWSV-VOL-NUMBER, @ 
0236 cA B4 168 CLAW TPUT ATTBUF $66 
07 7A AA 3 €1 18¢ 218: BBC & Qual +s. 2 
50 00cO }36CA 8C (00ICT MOVZWL gyALs , RO 
1 C6 BRB 23$ 
| D4 O01C 338: CLAL RO 
0238 CA BO OO1CA :  MOVW RO, OUTPUT_ATTBUF+68 
023A CC FF 00 F BO OO1CF MOVW #256, OUTPUT ATTBUF #70 
9 40 «OCA 9901000 F DO 00106 MOVL “6 54f TPUT_ATTBUF +76 
44 7 09 F p 1DF MOVL = #50790409, OUTPUT_ATTBUF +80 
FF7C : F doles PUSHAB DEVICE_CHAR 
DO OO1EC PUSHL V 
000000006 H F die CALLS #2, INITIALIZE_VOLUME 
28 AS 00 OO1FS 248:  MOVL 40(FAB), NAM 
08 As gi DO 001F9 MOVL #1, B(F 
OC A8 OOO2FFFF F DO O01FD MOVL #196607 12<F AB) 
OF 06 AC €E9 00205 BLBC CONTINUE, 5$ 
4 A6 00070007 &F o9 00209 MOVL #458759, 36(NAM) 
8 Ab 0c AA 80 90 i} mov RWSV_VOL_NUMBER, 40(NAM) 
50 1c (A? 08 c? $0 18 25$:  DIVL3 #8, 28(VCB), RO 
10 87 50 FF OB 0021D SkPC =—._s#255, RO, ai6(vcB) 
92 12 00223 BNEQ 26$ 
1 D4 00225 CLRL aR 
59 51 DO 00227 26$:  MOVL RI, P 
10 12 0022 BNEQ 2 
7E 0800 8F 3C 0022C MOVZ2WL #2256, =(SP) 
58 DD 00231 USHL FAB 
58 DD 00233 PUSHL R11 
000000006 00 03 FB 00235 CALLS #3, FALE ERROR 
50 9 08 00 EB 0023C 278: FFC #0. #8, TP), B 
51 23 10 A? : 99 41 SUBL3 leivees P, RI 
é 01 A041 7E 00246 MOVAQ 1(B)CR13, FILE_NUMBER 
1c sO 36 D1 00248 MPL FILE_NUMBER, 28(VCB) 
10 18 0024F BLEQU 28S 
7E 08D0 ef 3C 00251 MOVZWL #2256, -(SP) 
8 DD 00256 PUSHL FAB 
38 DD 00258 PUSHL R11 
000000006 00 9 FB 025A CALLS #3, FILE_ERROR 
4 A 2 BO 00261 288: MOVW FILE_NUMBER, 36(NAM) 
6 Ab 01 B60 : 65 Wy #1, 38 (NAM) 
50 52 08 10 ef 69 EXT2v #16, #8, FILE_NUMBER, RO 
9 Ab 50 90 00 $ VB —s RO, 41 (NAM) 
8 Ab 0c AA 90 00 MOVB = RWSV VOL _NUMBER 40 (NAM) 
A  A6 00060006 8F 00 00277 298: MOVL  #262748,742(NAM 
— A OC AA BO 0027F MOVW § RWSV_VOL_NUMBER, 46(NAM) 
50 06E0 CA 00 00284 MOVL OUTPOT ATL. RO 
0c AO 0D 0 89 PUSHL 12(RO) 
24 Ab OF 0028C PUSHAB NAM 
000000006 99 9 FB O0028F CALLS , READ_HEADER 
DO 00296 VL ST 9 
19 3 E8 00299 BLBS STATUS, 30$ 
00000910 &F 7 01 00 6 CMPL StAtUs, #2320 
10 13 002A BEQL 0$ 
| 


ce; - oo _ — ——— 
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| oH TRRAVE Write Save S$ 


“ 
et 1b-s6 =1984 01:13:47 AX-11 Bliss-32 v4.0-74 Pa 3 
INIT_SAVE_DISK = initialize save set disk 12-20-98 He ae BACKUP. SRC IWRITESAVE .B 2:1 ” ry 
7E 0800 8F 3C 002A5 MOVZ2WL #2256, -(SP) : 2402 
8 DD OOCAA PUSHL FAB : 
DD OO2AC PUSHL 1 : 
000000006 00 FB OOOA CALLS #3, FILE_ERROR : 
DD 00285 308 PUSHL t 2604 
000000096 00 1 FB 0028 CALLS #1, STA_ENTER : 
468 AE 40 F 9A 0028 MOV7BL #64, FIB_DESC t 2410 
4C OA 50 AE OF C MOVAB FIB, FIB-DESC+4 + 2611 
0040 8F 00 bE . 00 2c 9 ce MOVCS #0, (SP)7 #0, #64, FIB t 2612 
| 3 AE 8 8F 90 00201 MOVB #80, FIB+3 + 2613 
4 A 4 Ab po 0 06 MOVL 36¢ AM), FIBS4 + 2614 
8 AE 8 AB B DB MOVW 4O(NAM), FIB+8 : 41g 
SA AE 00060004 «= BF_Soé#O «0020 MOVL #262148, F1B+10 + 241 
| E AE B4 00268 CLRW 43s FIB4+14 + 2619 
6c A CAA pO 0 EB VL - RWSV_OUT_VBN, F1B+28 + 2420 
5 A6 9A O02F MOV7BL 59 (NAM), ~RO t 2422 
31 C Ab 9A O02F4 MOVZBL 60(NAM), R1 : 
0 51 co OoF8 ADDL2 R1, RO : 
§ 3D Ab 9A O02FB MOVZBL 61(NAM), R2 : 
40 AE 5 52 C1 OO2FF ADDL3 R2, RO, NAME_DESC F 
66 —SOAE 4C 6 9 00304 MOVL 76(NAM), NAME DESC+4 t 2423 
OC Ae FCB2.—sCF 34 00309 MOVC3 #52, ATTCTL_TEMPLATE, ATT_CONTROL + 2425 
10 AE OE AA SE 00 19 MOVAB RWSV_SEG ATT_CONTROL +4 + 26426 
07 78 AA 04 gl 0031 BBC a4, GQUALT12, 31$ + 2627 
50 OOAC CA 9E OO3IA MOVAB QUAL+64, RO + 2428 
05 11 OO31F BRB $ : 
50 FF4O CA i 00321 318: MOVAB JPI_UIC, + 2427 
18 «AE 50 p 00326 32$: MOVL RO, aTT CONTROL+12 : 
20 «AE 6E 9E 0032A MOVAB FILE_PROT, ATT_CONTROL+20 : 2430 
8 AE FF5O «=6—sCA.—s«&O9#E’ B08 E MOVAB JPI_BATE, ATT CONTROL +38 3 2431 
0 At FF50 «6CA OSE «(00 MOVAB JPI-DATE, ATT~CONTROL+36 > 243 
8 AE 04 AE 9E 0033A MOVAB REVRUM, ATT_CONTROL+44 + 243 
07 7A soAA 03 £1 0033F C #3, QUAL+14> 33$ + 2434 
50 00c0 cA 3¢ 99 44 MOVZUL AL+84, RO + 2435 
50 FAOO =8F 3C 00348 338: MOVZWL #64000, RO 5 2434 
AE 50 00 00350 34$: mov. RO, FILE PROT ; 
06 AE 01 00 0035 MOVL #1. REV : 2437 
0090 «=s«aBF 00 6E aed 00 2c 99 37 mMOVCS #0, (SP), #0, #144, OUTPUT_ATTBUF 3 2hhG 
027c «CCA 01 CE 00361 MNEGL #1, OUTPUT_ATTBUF +136 + 2445 
O1F4 CA SF 00366 PUSHAB OUTPUT _ATTBUF > 2454 
10 AE 9 O36A PUSHAB ATT CONTROL : 
7E 7C 0036D CLRQ = = (SP) : 
50 AE 9F 00 6 PUSHAB NAME DESC ; 
C AE 9F 00 PUSHAB FIB BESC ; 
7E 7C 0037 . ; 
F AD 9F 0 7 PUSHAB 10 STATUS : 
7E F F 9A OO37A MOVZBL #223, -(SP) ; 
OOO2FFFF i DD 0 gE PUSHL 1 607 : 
000000006 09 OC FB 00 86 CALLS #12, STA_Q1OW ; 
5 20 dO 00 MOVL RO, STAT ; 
7 FO OA 8 6 38 BO euL STATUS S satus — 
| i) “3 HS $0 97 LBS STATUS, as > 2456 


] 


<< 
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dD 6 
WRITESAVE Write Save Set 16-Sep-1984 01:13:47 AX-11 Bliss-32 v4.0-74 e 4 
Yoe-680 INIT. SAVE.DISK - initialize save set disk 13-08-13 te 4:09 BACKUP SRE WRITESAVE .832;1 — RS AN 
7 DD 0039A 35$:  PUSHL STATUS ; 
| | eR : 
| 000000006 00 5 Pe a5 CALLS #3, FILE ERROR ; 
| 50 AA D4 OO3A7 36S CLAL «=- RWSV_ALLOC > 2458 
4c OAA C 0 O03AA MOV RWSV-OUT_VBN, RWSV_IN_VBN_O > 3459 
0B4 CA 3C AF MOVZWL QUALS » R 3 2666 
| 52 00000200 SF 9 Bin’ | 5512" 86. BLOCK. COUNT : 
| Shen fA 5 8 C378: TST alé78 ; . + 2468 
| 50 52 ¢ 7 cf ASHE = #2, BLOCK COUNT, RO : 2469 
50 52 03 CS 003CD 388: MULL3 #3, BLOCK_COUNT, RO + 2470 
50 AA D1 00301 39$: CMPL RwSV_ALLOT, RO + 2468 
og fF OF boaD? PUSHAB BLOCKS ALLOC + 2473 
40000098 BF DD 003DA PUSHL ae ea : 
000000006 90 FB 00 £0 CALLS #2, STA_EXTEND : 
DO OO3E MOVL RO, STATUS r 
07 E9 OO3EA BLBC STATUS, 40$ : 267% 
50 AA 08 AE CO 003ED ADDL2 LOCKS_ALLOC, RWSV_ALLOC > 2476 
CD 11 O05F2 BRB $ : 
O0E6 CA 01 88 003F4 40$:  BISB2 #1, COM_FLAGS > 2479 
04 003F9 418: RET : 2484 


; Routine Size: 1018 bytes, Routine Base: CODE + 0328 
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—WRITESAVE Write Save Set 16-Sep-19 1:13:47 AX-11 Bliss-32 V4.0-74 Pa 35 
You~600 INIT SAVE. TAPE - initialize save set tape 122868=138e i 4:09 YOACKUP’SRE SUA ITESAVE. 69251 = (6) 
| 
is 485 1 ZSBITL "INIT_SAVE_TAPE = initialize save set tape’ 

; 3 r ; ROUTINE INIT_SAVE_TAPE (CONTINUE) : NOVALUE = 

: 9 482 1 !+¢ 

; 940 4 1! 

; 941 490 1 ! FUNCTIONAL DESCRIPTION: 

; oi 491 1! 

3 ot £38 : This routine initializes a magtape for an output save set. 

; 945 494 1 ! CALLING SEQUENCE: 

3 aoe $3? ; INIT_SAVE_TAPE (CONTINUE) 

; 948 499 1 ! INPUT PARAMETERS: 

; 949 498 1! CONTINUE: FALSE if this is a new save set 

r Sey 499 : TRUE if this is for the next continuation volume 

; $52 20 1 ! IMPLICIT INPUTS: 

; 95 206 1: NONE 

> 954 505 1! 

s 939 506 1 ! OUTPUT PARAMETERS: 

; 956 305 1! NONE 

; 957 208 1! 

; 958 507 1 ! IMPLICIT OUTPUTS: 

; 959 508 1! NONE 

; 960 509 1! 

: 961 510 1 ! ROUTINE VALUE: 

3; 511 1! NONE 

; 9 aig +3 

; 964 515 1 ! SIDE EFFECTS: 

; 965 514 1! NONE 

; 966 515 1! 

; 967 218 1 !-- 

; 968 517 1 

; 969 518 BEGIN 

; 970 519 

3; (971 520 LOCAL 

; 97 521 : REF BBLOCK, ! pointer to output FAB 

3; O77 5 ¢ STATUS, ' the usual status value 

; 974 52 TAPE _CHAR : BBLOCK fs : pogrene characteristics longword 
i 9es 3 4 LABEC_BUFFER =: BBLOCK (905; / buffer for tape Labels 

3 97 5 $ EXTERNAL ROUTINE 

: 9/8 5 READY TAPE, : make tape ready for 1/0 

; 979 5 $ REW! ' rewind tape 

: 980 5 SENSE CHAR, i sense magtape characteristics 
; «(981 5 SET_CRAR, ! set magtape characteristics 
; 98 531 mi. ' skip tape marks 

: 98 5 § SKIPRECORD, ' skip tape record 

; 984 5 READ LABEL. ! read file header Label 

3; 985 534 MAKE_VOL1, : generate volume header Label 
; 986 535 MAKE_HDR1, ! generate file header label 1 
3; 987 5 MAKE _HDR2 ' generate file header Label 2 
> 988 5 WRITE_LABEL, i write file header Label 

; 989 5 : WRIT ! write tape mark 

: 990 5 FILE ERROR signal file related error 

: 991 540 LIBSCVT_DTé8 : ADDRESSING_MODE (GENERAL); | ’ 
; 992 541 convert decimal string to binary 


cf: -- —___—____- -- $$ —__-_—__ — —~ —_ 


| F 6 
“WRITESAVE Write Save set 16-Sep-1984 01:13:47 YAX=11_BLiss-3 
‘04-600 INIT_ SAVE. TAP t3ep= 1986 11: OsRCuRL 


V¥4.0-74 Pa 36 
IT _SAVE_TAPE = initialize save set tape 14-Sep- 4:09 BACKUP. SRC JWRITESAVE .852;1 oe (6) 
iR $8 Bs set uo tne outout 
3 ! Set up the output tape. 
(3 995 “4g! 
i3 399 4 FAB = .RWSV_SAVE QUALCQUAL PARA_FC]; 
; 998 4 TAPE_CHAR ="READY_TAPE (TROE); 
3 iy 4 If rewind is requested, do so and create the volume header Label. 
: 100 1 
3 1 5 § IF .QUALCQUAL_REWI] OR . CONTINUE 
13 ; ¢ 7 THEN 
3 1906 5 REWIND (); 
; 1007 356 IF NOT - CONTINUE THEN RWSV_FILE NUMBER = 1; 
3% 22 IF .QUALCQUAL_DENS] OR .CORTINUE 
3; 1009 : : THEN 
; 1010 59 4 BEGIN 
3 1011 560 4 TAPE _CHAR = SENSE CHAR (); 
: iSt¢ 561 4 TAPE CHARCMT$V_DENSITY) = - QUAL CQUAL _DENS_VALUE); 
3 101 26¢ 4 SET_CHAR (.TAPE_CHAR); 
1018 384 , 
3 1916 565 MAKE_VOL1 et BUFFER); 
3 101 208 CHSCOPY(VL1$S_VOCLBL, LABEL _BUFFERCVL1$T_VOLLBLI, 2C° *, 12, RWSV_VOLUME_ID); 
; 1018 267 WRITE_LABEL (CABEL_BUFFER); 
; 1020 4 4 IF .QUALCQUAL_DENS] OR .CONTINUE 
3; 1021 570 THEN 
3; 10 ¢ 571 & BEGIN 
; 10 276 4 TAPE_CHAR = SENSE CHAR (); 
: 1024 573 4 IF_ .TAPE CHARCMT$S)_ DENSITY] NEQ .QUALCQUAL_DENS_VALUE) 
: 1025 574 4 THEN FILE_ERROR (BACKUPS_DENSITY, .FAB); 
3 ee 575 END; 
3; 10 576 END 
3; 1028 577 
; 1029 578 ! Otherwise space to the end of tape and verify that we can pequal ly 
3; 10 579 ! append to it. We first construct a best effort volume label for the 
: 1031 280 ! journal, by reading the volume header label if the tape is at BOT, 
3; 10 $ 581 ! or just getting it from the command if a label is specified. Note 
3: 10 286 ! that the ‘infinite’ skip call will terminate on two consecutive 
3; 10 58 ! tape marks, which could be either real EOV or an empty file. We tell 
; 1035 584 ! what's what by the labels. Note that a read is necessary to advance 
3 + : 5 : over the double tape marks of an empty file. 
: 1038 258 > ELSE 
3; 1040 589 EG! 
3 1061 590 IF .TAPE_CHARLMT$V_80T) 
: Ha 591 THEN 
3 104 235 4 BEGIN 
3 1044 5935 4 STATUS = READ_LABEL (LABEL_BUFFER, ‘VOL1'); 
> 1045 594 4 IF NOT .STATUS THEN FILE ERROR (BACKUPS _LABELERR, .FAB, .STATUS); 
3 1066 233 . ENSCOPYCVL18S_VOLLBL. LABEL_BUFFERCVLIST_VOLLBLJ, ZC* *, 12, RWSV_VOLUME_ID); 
3; 1048 299 ; ELSE IF .QUALCQUAL_LABE) 
3; 1049 598 THEN CHSMOVE (12, BBLOCK C.QUALCQUAL_LABE_LIST], QUAL_LABE_VALUE], RWSV_VOLUME_ID); 


po 
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| WRITESAVE Write Save Set 18-se -1984 01:13:47 AX-11 Bliss-32 V4.0-74 Pa 37 
Yoe-000 INIT _SAVE_TAPE = initialize save set tape 102808= 138 i; 4:09 BACKUP SRE SURI TESAVE B92: ae (6) 
3 7 599 

:y 6 WHILE TRUE 

3 1 § 601 dO 

3 1 6 § BEGIN 

s 1 6 4 SKIP_T™M (32767); 

3; 1055 6046 4 

31 $ 605 4 SKIP_TM (=2); 

: 1 606 4 TAPE“CHAR = SENSE_CHAR (); 

31 § 607 4 IF NOT .TAPE_CHARCMTSV_BOT) 

3; 105 6 4 THEN 

Stoel 1 SEIP RECORD (1) 

3 1989 ei9 STATOS = READ LABEL (LABEL_BUFFER); 

: 106 ois IF NOT .STATUS THEN FILE ERROR (BACKUPS LABELERR, -FAB, .STATUS); 
3 1064 61 IF .LABEL_BUFFERCHDISL_HBILID] EQL ‘EOFT 

: 1065 614 THEN EXITCOOP; 

; 1066 615 IF .LABEL_BUFFERCHDISL_HD1LID] EQL *EOv1" 

3: 106 $18 THEN FILE ERROR (BACKUP$ CONTINUED, .FAB); 

3; 1068 61 IF .LABEL_BUFFERCHDI$L_HBILID) NEQ ‘HDR1' 

3: 1069 618 THEN FILE-ERROR (BACKUPS_LABELERR, .FAB, BACKUPS_NOTANS!); 

3; 1070 619 4 END; 

; 1071 620 4 SKIP_TM (1); 

: 1976 621 4 SKIP_RECORD (1); 

3 Hie : § END; ! end of EOV search loop 

; 1075 se 4 ! Get the file set ID and file number from the EOT Label, so 

; 1978 625 ! we can correctly generate the new header Label. Then position to the 

; 107 626 : end of the label set. If the file number in the label is zero, this 

; 1078 627 ! is a freshly initialized Fore. In this case, rewind and read VOL1 

: 1079 628 ! to position to where we will create HDR1, so the dummy file will 

3; 1080 629 ' be overwritten. 

1083 a 

3 1088 3632 CHSMOVE (HDISS_FILESETID, LABEL_BUFFERCHDIST FILESETID), RWSV_FILESET_ID); 
3; 1084 6 IF NOT LIBSCVT_DTB (4, LABEL _BUFFERCHD1ST_FICESEQNO), RWSV_F ICE_NUMBER) 
3 1086 6 : THEN FILE ERROR (BACKUPS_LABELERR, .FAB, BACKUPS$_NOTANS!); 

3 1087 636 IF .RWSV_FILE_NUMBER EQL 0 

3; 1088 637 THEN 

; 1089 638 4 BEGIN 

3; 1090 639 4 REWIND (); 

: 1091 640 4 STATUS = READ_LABEL (LABEL_BUFFER, ‘VOL1"); 

3 1098 641 4 IF NOT .STATUS THEN FILE_ERROR (BACKUP$_LABELERR, -FAB, .STATUS); 
We Be 

: 1095 644 SKIP_TM (1); 

3 1096 645 RWSV_FILE_NUMBER = .RWSV_FILE_NUMBER + 1; 

: odd o66 END; 

3 1099 6468 QUALCQUAL_DENS_VALUE] = .TAPE_CHARCMTS$V_DENSITY); 

3 1101 650 ! Now write file header Labels. 

We Be 8 

: 1104 re MAKE_HDR1 (LABEL_BUFFER); 

> 1105 654 2 WRITE_LABEL (LABEL_BUFFER); 

3: 1106 2655 


| 
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a6 
e Save S$ sen 
SAVE APE - initialize save set tape ~Sep 


$ 
A 
URI TETAS (LABEL BUFFER); 


~ 
—s 


LABEL (LABEL _BUFFER); 
WRITE_TM (); 


— 
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Seasoore 


an immediate reel switch. 


TAPE_CHAR = SENSE_CHAR (); 
IF .TAPE_CHARCMT$9_EOT 
= TRUE; 


S335 


THEN COM =FLAGSCCOM-EOV 


tb se se en 8 ts 
SS ee 


ooo 
oe 


5B 00000000G 8F 00 00002 
5A 000000006 00 9€ 00009 
2 00000000" EF 9E 00010 
f AS AE 43 00017 
5 04 AY 60 0001B 
56 04 ad 00 poet 
01 0d 000 ; 
000000006 9° 1 FB 000 
8 0 00 0002C 
4 69 AY E8 0002F 
8 04 AC €E9 000 3 
000000006 0 00 FB 00037 1$: 
0 04 AC €8 000 
69 1 00 0004 
04 65 Ag i ob 2$: 
000000006 00 * 0 F 9 te 3$ 
MR AS ah 
58 05 08 00A9 £? F bee 
000000006 00 i FB 0061 
dD Bees 4$: 
000000006 00 ba FB 0 
oc 20 04 AE $ 2c 90071 
FO OA 0077 
000000006 0 af re 0 1 
04 85 A 05 £0 0083 
1 04 AC €E9 00 
000000006 00 00 FB 00088 5$ 


rc 


Be 91: 


woo 


END; ! End of routine 


AX-11 BLi 


747 ogc 32 ¥$ 08768 
:09 BACKUP. SRC JWRITESAVE .852;1 


! See if the created label set runs past EOT. If it does, set up for 


INIT_SAVE_TAPE 


READY_TAPE, REWIND 
SENSE ree R i CHAR 


sxiP. T™™ varecone 
LAgeL, Lm one 
MAKE HD tabs 
WRITE ont Rak WAITE _™ 
LIBSCUT_DTS 


Save R2,R3,R4,R5, 6, R7,R8,R9,R10,R11 
#BACKUP$ g LABELER. R11 
rite _ERR 1 
RWSV"FILE_ NUMBER, R9 
aus SAVE QUAL RO 
4(ROT, FAB 


a 
oe READY TAPE 
APE =fHA 


- 2s 
“nusv VipILE. NUMBER 


ne 
a. %s 
i. ma Gar 


BUALSP 7° ~oRA as. TAPE_CHAR 
TAPE CHAR 
. SET_CHAR 


#1, 
#6. ABEL BUT FERS, #32, #12, 
ae VOLUME _ 


WRITE LABEL 
$3. Ay °9, 38 


int SENSE _CHAR 


2486 


2546 
2547 


2552 


555 
556 


2557 
2560 
561 


562, 
2565 


2566 
2567 
2569 
2572 
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“WRITESAVE Write Save Set tose -1 1:13:47 AX-11 Bliss-32 V4.0-74 
“Voe~600 INIT _SAVE_TAPE = initialize save set tape 1 =3007 138s 9 :b2559 YOACKUP’ SRC SuRITESAVE 69251 
50 00 0009 RO, TAPE_CHAR 
3 00A9 BR 9 MOVIBL QUAL +77, "RO 
50 58 FD 9A CMP2V #8, #5, TAPE_CHAR, RO 
OF BEQL «= 6 
6 DD 000A PUSHL FAB 
| 000000006 &F DD 000A PUSH ABACKUPS_DENSITY 
6A 8 A CALLS #2, FILE-ERROR 
01 q AC gs: BRW 188 
28 58 1 AF 7$: BBC a8 A CHAR, 9$ 
316C4F56 BF bo 0085 PUSHL  #827084630 
04 AE 9F 0008 PUSHAB LABEL BUFFER 
| 000000006 99 FB poet CALLS +e READ LABEL 
D C VL STAT 
8 8 00 C6 BLBS STATUS, 8$ 
E 6 7D 000C¢ mova AB, =< 
8 DD O00CC PUSHL R11 
6A 6 FB S00CE CALLS #3, FILE_ERROR 
0c 20 04 AE 3 2C 00001 8$: MOVC #6, LABEL BUFFER+4, #32, #12, - 
FO OA 0007 RWSV_VOLUME_ID 
10 11 00009 BRB 108 
66 «Ad 9 0008 9$: TSTB QUAL+10 
08 18 000D BGEQ si 
50 ooac  C¢ O0E MOVL. QUAL+80, RO 
FO OA 06 AO g¢ 8 O00E mOVC3 ie 4(RO), RWSV_VOLUME_ID 
7E 7FFF F 3C OOOEB 10$: # MOVZ2WL #32767, -(§P) 
000000006 00 01 FB 000F CALLS #1, SKIP_TM 
7E 02 CE 00 F MNEGL , 2S 
000000006 00 1 FB OOOFA CALLS #1. SKI 
000000006 99 0 FB 00101 CALLS #0, SENSE_CHAR 
8 0 pO 00108 VL RO, TAPE_CHAR 
+} 58 10 €0 00108 § #16, TAPE_CHAR, 13$ 
01 DD 0010F PUSHL 
000000006 00 91 FB 00111 CALLS #1, SKIP_RECORD 
E DD 00118 PUSHL § 
000000006 90 01 FB O11A CALLS #1, READ LABEL 
5 29 DO 00121 MOVL RO, STATOS 
08 5 8 0124 BLBS STATUS, 11$ 
7 56 7D 00127 v0 FAB, -(SP) 
38 DD 0012A PUSHL R11 
6A 03 FB O012C CALLS #3, FILE_ERROR 
31464F45 BF 6 D4 t Ff 118: CHPL LABEL BUFFER, #826691397 
31564F45 BF 6— D1 001 CMPL LABEL BUFFER, #827739973 
12 ot F BNEQ 2$ 
DD 00141 PUSHL FAB 
000000006 BF DD 00143 PUSHL #BACKUPS_CONTINUED 
A 2 FB 0149 CALLS #2, FILE “ERROR 
31524448  8F E Dl 13 128: CPL ABEL_BUFFER, #827475016 
000000006 8F Dd 001 PUSHL  #BACKUPS_NOTANSI 
6 DD 00158 PUSHL FAB 
8 DD 0015p PUSHL R11 
6A FB 0015F CALLS #3, FILE_ERROR 
1 oD 16¢ 13$:  PUSHL 
000000006 00 1 FB 001 CALLS #1, SKIP_TM 
1 DD 00168 PUSHL #1 
000000006 00 1 FB 0016D CALLS #1, SKIP_RECORD 


ES ES eh ee EET NESS eee Oe a ae a 


f =, 


ro = — = — _ ——— 


— 


; Routine Size: 538 bytes. Routine Base: CODE + 0722 


6 
—WRITESAVE Write Save Set tb-se -19 1:13:47 AX-11 Bliss-32 v4.0-74 p 40 \4 
“Yoe~b00 INIT _SAVE_TAPE = initialize save set tape 1 35p-1 $82 i 4:09 BACKUP. SRC uRiresave882;1 so (6) \' 
| 
FFTG 31 17% BRw 10$ : 
| &B a9 15 AE 8 7 14$: moves #6, LABEL_BUFFER+21, RWSV_FILESET_ID : 63 i 
23. AE OF 1 PUSHAB LABEL _BUFFER+31 : i 
DD 001 PUSHL # : i 
000000006 00 ; FB 1 CALLS #3, JBSCvT_DTB : i 
| D £8 601 BLBS =_-RO : i 
000000006 8F DD 0018E PUSHL #BACKUPS$_NOTANS! 3 2634 
6 DD 001 PUSHL FAB : i 
DD 196 PUSHL Rt : : 
6A F 19 CALLS #3, FILE_ERROR : i 
: 198 15$: iste RuSV_FILE_NUMBER + 2636 
000000006 00 0 FB O19F CALLS #3 REWIND t 2639 ‘ 
314C4F56 BF pp 1A6 PUSHL  #827084630 3 2640 
06 AE SF OO1AC PUSHAB LABEL BUFFER : ‘ 
000000006 99 FB OOTAF CALLS 2, READ LABEL ; i 
D 0186 MO R STATOS : i 
13 E 1B BLBS STATUS, 17$ + 2641 i 
7E 56 7D 0018C AB, -(S : i 
6A gg Pe ope CHers «9S. FILE ERROR : 
11 001C4 BRB 136 $ + 2636 
1 oD 3i¢6 16$: PUSHL 3 2644. j 
000000006 00 01 FB 001C CALLS #1, SKIP_TM : i 
09 D6 OOICF 17$: INCL RWSV_FILE_ NUMBER + 2645 i 
50 58 05 98 F 00101 18$: EXTZV H ¥ WS, TAPE_CHAR, RO i 2648 i 
00A9 = 9 0 00106 MOVB RO, QUAL+77 ; i 
SE DD 00108 PUSHL SP : 2653 
000000006 gi FB 90100 CALLS #1, MAKE_HDR1 ; i 
E DD 00184 PUSHL SP + 2654 
000000006 00 gi FB OO1E6 CALLS #1, WRITE_LABEL ; i 
—E DD OO1ED PUSHL SP + 2656 i 
000000006 00 gi FB OOtEF CALLS #1, MAKE_HDR2 ; i 
— DD O16 PUSHL SP + 2657, i 
000000006 00 oi FB OOTF CALLS #1, WRITE_LABEL ; i 
000000006 00 0 FB OO1FF CALLS #0, WRITE-TM > 2659. i 
000000006 00 00 FB 00206 CALLS SENSE CHAR + 2665 
58 73 DO 00200 VL RO, TAPE CHAR 3 i 
05 58 1 3 0210 BBC #18, TAPE CHAR, 19S + 2666 | 
0006 «= C9 01 88 00214 BISB2 #1, COM_FCAGS + 2667. i 
04 00219 19$: _—RET ; 2669. 


| 


K 6 
WRITESAVE Write Save Set 16-Sep-1 1:13:47 AX-11 Bliss-32 V4.0-74 b 1 
vou INIT OUT SAVE - initialize save set for output 19-$88-1982 te 4:09 EBACKUP.SReSURIT SAVE .652;1 a a 
3 11 70 1 ZSBTTL “INIT_OUT_SAVE = initialize save set for output’ 
E 1 § er : GLOBAL ROU INE IRI 1 OuT_SAVE (CONTINUE) : NOVALUE ie 

i 1382 ors bts 

: 1 $ 675 i ; FUNCTIONAL DESCRIPTION: 

: 1 ei : : This routine initializes the output save set. 

: 1131 re 1 ' CALLING SEQUENCE: 

; + ¢ oR : INIT_OUT_SAVE (CONTINUE) 

: 11 6 ; 1 ' INPUT PARAMETERS: 

3 11 685 1! CONTINUE: FALSE if this is a new save set 

3 + one : : TRUE if this is for the next continuation volume 

11 686 1) IMPLICIT INPUTS: 

t ia0 e681 i “pe 

7 11461 689 1 § OUTPUT PARAMETERS: 

: 1103 an — 

> 1164 69¢ 1 ' IMPLICIT OUTPUTS: 

St 

: 11a? 695 1 | ROUTINE VALUE: 

t 1305 $99} | _— 

: 1150 698 1 | SIDE EFFECTS: 

: 1151 $9 1! NONE 

g 1136 00 1! 

3 115 701 1 !<= 

3 1156 70 1 

3 1155 70 BEGIN 

Te HBS § vocw 

: 1158 706 : REF BBLOCK, ! pointer to output FAB 

3; 1159 7 RAB : REF BBLOCK ! pointer to output RAB 

3; 1160 708 PROT _XAB : $XABPRO_DECL, ' protection XAB for file creates 
: 1301 109 STATOS; ' the usual status value 

: 1103 711 2 EXTERNAL ROUTINE 

3 1164 ng EXTRACT FILENAME, ! extract file name from file string 
3 1132 at FILE_ERROR; ! signal file related error 

: 118? 715 ! Do common setup. Get the next device spec in the List. If first 

; 1169 ay time or end of List, start at the beginning. 

: 1170 71 ‘ 

: 1171 9 IF .RWSV_SAVE_QUAL NEQ 0 THEN RWSV_SAVE_QUAL = .RWSV_SAVE_QUALCQUAL_NEXT); 
: 1176 720 F .RWSV-SAVE-QUAL EQL 0 THEN RWSV Save QUAL = .QUALTQUAL"OUTP_LISTI; 

; 1175 , 1 2 RWSV_SAVE_FAB™= FAB = .RWSV_SAVE_QUALCOQOAL_PARA_FC); 

: 1175 738 IF NOT . CONT INUE 

: 177 725 BEGIN 

> 1178 726 RWSV_SEG_NUMBER = -1; 


ans i 


cs 


3 


wn 


uw 


ns ss 2 as Ls as a ss 


SSF ORAS SELESPOSIESE 


oo 


mw VRUSRRON VSS anenrunm-oSe 


PROIPRIPIPOPRY et tt 9 OS SS 


Be Se Se Se Se Se Se Be Ge Se Se Se Se Ge Se Ge Ge Se Se Se Se Se Se Fe Ss Se Se Se Se Ge Se Se Ge Ge Ge Se Ge Se Se Se Ge Se Se Se Se Se Se Se Se Se Se Se Se Ss Ge Ge ee 


kk kt a kt tk tn tk ak a ts a et at a a es a a as a a ss a 6s a = 


~~ £5 
~ 


i 


eee 


SSS NNN 
SLL LEE 


or 


SN 
PPAAAAMMAMIUT 


SO OONOUE WN “OC ODNO 


pe 
aoe 
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e Save Set 1b-sep 1:13:47 AX-11 Bliss-32 V4.0-74 
.OUT_SAVE = initialize save set for output 730071382 t a2: :09 BACKUP .SRC waites ESAVE. 882; ;1 


RWSV_VOL_NUMBER = 0; 
RWSV_ In_GROUP_ SIZE = RWSV_KORSIZE = .QUALCQUAL_GROU_VALUE); 


RWSV “out LERRORS = 
RWSV~OUT “BLOCK =couni = 0; 
RWSV-OUT- GROUP COUNT 
SV" VOL-NUMBER = "RWSV VOL NUMBER + 1; 
RWSV-SEG- “NUMBER = .RWSVSEG-NUMBER + 1; 


: Open the save set file through RMS. 


FABL paasy Man NAM] = TRUE 
a .QUALCOUAL_SS Fites 
"BEG N 
FABLFABSV_PUT] = TRUE; 
FABCFABSV_SUP] = TRUE; 
FABLFABSW_MRS) = .QUALCQUAL_BLOC_VALUE); 
FABLFABSB_ORG) = FABSC_SEQ; 
FABLFABSB_R = 0; 
FABLFABSB-RFM FABsc 
If .BBLOCR CFABLF $L “BEVI: DEV$v_SQD) 
THEN FABLFABSW BLS QUAL CQUAL Vaioe VALUE); 
SKABPRO NIT (xAB = PROT_XAB); 
pro anne XABSW_PRO] = <1; 


QUAL_6_OWN_UIC 
vPro} KABCXASS “ule = ,QUALCQUAL_O_OWN_VALU); 


Hew 
UAL TOUA 
NEA NAB KABSia wh = ,QUALCQUAL_PROT_VALUE); 
ABLF ABSL =XAB) = PROT_ 


ELSE 
FABCFABSV_UFO] = TRUE; 


If .QUALCQUAL_SS_FILE) 
OR _jbetocn CFABCFABSL_DEV], DEV$v_SaD) 
BEGIN 
IF .BBLOCK CFABCFABSL_DEV], DEVS$V_NET) 
FABCFABSV_B10) = FABCFABSV_SQ0) = TRUE; 


STATUS = S$CREATE (FAB = .FAB); 
fe he or i = 0; 


ATU 
THEN F rie ERROR ae 7h rest ant SEVERE 


-STS), .FABLFABSL Periaoe’ 
IF .BBLOCK CFABLFABSL_DEV], DEVSV_SwWL 
THEN FILE_ERROR (BACKUP VabeMDUT ssi sbi _SEVERE, .FAB, SS$_WRITLCK); 


ELSE 
INIT SAVE DISK (. CONTINUE); 


7? g 3 If .QUAICQUAL _SS Field 
THE 


set 


a ESSE A ae, 
m 6 
WRITESAVE Write Save -Sep 4 01:13:47 AX-11 Bliss-32 V4.0-74 
vO4-000 INIT four SAVE. - initialize save set for output 122888 Sep 7138 ti 4:09 BACKUP. SRC uni Tesave.682;1 
71 7 BE 
: 4 785 RAB 
; ' ‘ f $ STATUS ss" sconwect (RAB = .RAB); 
: 1240 7 8 THENCE FILE_ERROR (BACKUPS grewout ostsse SEVERE ‘ 
3 1261 7 ABSL_STSJ, .RABCRABSL_STVJ why 
31 4g 7 9 END 
5 126 79 E 
5 ; te 6 RWSV_CHAN = .FABCFABSL_STV]; 
> 4 46 794 IF NOT .CONTINUE 
; i 4 199 THEN EXTRACT_FILENAME (.FAB, COM_SSNAME); 
: 798 3 H Set up the output if it is a tape. 
: 1 : 800 2 IF .BBLOCK CFABCFABSL_DEV)], DEV$v_SaD) 
> 125 801 2 AND NOT .QUALCQUAL_SS~FILES 
+ 1254 80 THEN 
3 ; 2? sit INIT_SAVE_TAPE (. CONTINUE); 
: 1257 805 1 END; ! End of routine INIT_OUT_SAVE 


oEXTRN EXTRACT _FILENAME 
-EXTRN SYSSCREATE, SYSSCONNECT 


row 


O3FC 00000 ENTRY INIT ut SAVE Save R2.R3,R4,R5,R6,R7,RB,RO ; 
59 000000006 90 9E 9000 MOVAB FILE~ERROR, R 
8 000000006 8F 00 000 MOVL #BACRUPS “OBENOUT 4, RB 
57 00000000" EF 9€ 90019 MOVAB QUAL! L+1 
5E A AE 9€ 0001 MOVAB “3 
50 9C A? DO 0001B MOVL RUSV CAVE “QUAL, RO 
06 13 OOO1F BEQL 
9¢ A? 60 00 00021 MOVL (RO), RWSV_SAVE_QUAL 
05 12 00025 BNEQ 2$ 
9¢ «A? F8 A? 00 00027 18 MOVL QUAL+4 RSV SAVE QUAL 
50 9¢ A? DO 0002C 2$ MOVL RWSV_SAVE QUAL, RO 
56 04 AO DO 00030 MOVL 4(RO vf 
AO A? 56 D9 00 MOVL FAB. Rusv V SAVE. FAB 
14 04 AC E8 00038 BLBS conf se 
94 A? FFFFO009 BF 00 0003C MOVL 65 36, *RWSV_VOL_NUMBER 
50 42. A? OA D044 MOVZBL ayALé 0 
BF OA 3 0 00048 MOVB Rus XORSIZE 
CO «OA? DO 0004 MOVL RWSV"IN GROUP_SIZE 
EC A? B4 00050 38: CLRW = RWSV_OUT“ERRORS 
Es A? D4 0 5 CLRL  RWSV“OUT“BLOCK_COUNT 
FO OA? 9G 36 CLRB  —- RWSVOUT~GROUP~ COUNT 
94 A? B86 0005 INCW  RWSV"VOL“N 
9 A? BG 0 aC INCW  RWSVSEG NUMBE 
07 A 1 F BISB2 al. 7(FAB) 
48 03 =A 3 61 63 BBC ; QUAL 15, 7$ 
16 Ab 1 0 B1 $2 #1. 22(FAB) 
04 Ab 4 6¢ BISB2 #4. 4(FAB) 
6 Ab 3c = A?-—s« BO 000 9 MOV QuAL #72, 54 (FAB) 
1D A6é B4 0007 CLRW =. 29 FAB) 


N 6 
WRITESAVE Write Save Set 16-Sep-19 1:13:47 AX=-11 Bliss-32 V4.0-74 P 4 
vou INIT_OUT_SAVE = initialize save set for output 132388- 138% 9H 4:09 BACKUP. SRC URI TE SAVE .682;1 a H 
1F Ab 9 78 MOVB = #1, :-31(F AB) 3 27% 
s 28 » PORE Bee #3 
0058 =F 00 6E 00 C 4$ MOVCS 10, (SPS, #0, #88, S$RMS_PTR : 2752 
6£ 5813 F BO MOVW #22547 SRMS_PTR : 
08 A 1 A 9 MNEGW #1, PROT_XABT + 2753 
05 * 4g 9 BBC Th QUAL 12 1 + 2754 
A 34 A? D0 0 MOVL § QUAL+64, PROT _xAB+12 + 2755 
05 A 03 7 OA 5$: BBC é Qual +4 : 736 
AE 48 =A 80 A MOVW QUAL+84, PROT XAB+S + 275 
4 A6 E 9% OhA 6$: MOVAB PROT_XAB, 36(FAB) + 2758 
1 af BRB 8 3 2740. 
06 A EH 080 7$: BISB2 #2, 6(FAB) i 2761 
9 A EO 00084 8$: BBS #3, QUAL+15, 9$ + 2763 
t 40 Ab E1 00089 BBC #5, 64(F AB), 128 + 2764. 
0 41 Ab 5 £1 OOOBE 9S: BBC #5. 65(FAB). 10$ + 2767 
06 Ab 40 8F 88 000C B1SB uel, 4 (FAB) + 2769 
16 Ab 0 88 000C¢ BISB2 #32, 22(FAB) : 
6 DD OOOCC 108 PUSHL FAB + 2771 
000000006 90 gi F OOCE CALLS #1, SYSS$CREATE : 
0 pO 0000 MOVL RO, STATUS : 
24 Ag D4 00008 CLRL © 36 (FAB) + 277 
0B 53 €8 0000B BLBS STATUS, 11$ > 2773. 
7E 08 Ad 7D OODE MOVa (FAB). =(SP) : 2775. 
56 DD OO0E PUSHL FAB t 2774) 
58 DD O00E4 PUSHL RB ; 
69 04 FB O00E6 CALLS #4, FILE ERROR ; | 
16 43 A6 1 EI OO0E9 118: BC #1. 67(FRB), 13% : 2776 
7E 025¢ ef C 000E MOVZWL #604, -(SP) t 2777) 
DD O00F PUSHL F 3 
58 OD O0O0F PUSHL R 3 
69 0 re 00087 CALLS #3, FILE_ERROR ; 
08 11 OOOFA BRB 13§ ; 376 
04 AC DOD OOOFC 12$: | PUSHL CONTINUE : 278 
FBEB CF o1 FB OOOFF CALLS #1, INIT_SAVE_DISK ; 
20 03 =A? 3 a 0104 13$: BBC #3. QUAL715, T4$ : 278 
52 50 Ad 9E 00109 MOVAB 80(R6), RAB : 278 
52 DD 0190 PUSHL RAB : 2786 
000000006 99 01 FB 0010F CALLS #1, SYSSCONNECT ; 
4 20 DO 00116 MOVL RO, STATU ; 
12 5 £8 0119 BLBS status, 15$ + 2787 
7E 08 A2 70 0011C MOva (RAB), =(SP) > 278 
6 DD 001 9 PUSHL FAB > 278 
69 4 Pe 1 4 ati: ry FILE_ERROR ; 
5 if 0127 BRB 136 . ; 783 
AG oA? o¢ Aé 00 ot 9 14$ MOVL  12(FAB), RWSV_CHAN + 2792. 
0c 4 aC f 12E 15$ BLBS CONTINUE, 16$ + 2794 | 
64 A? 9F 001 PUSHAB COM_SSNAME + 2795 
56 DD 001 PUSHL FAB ; 
000000006 00 : FB 00137 CALLS #2, EXTRACT FILENAME ; | 
0D 4 ag £1 OO13E 16$: BBC #5. 64(FAB)> 178 : 2800 
08 03 A 3 £0 14 BBS #3. QUAL+15, 178 > 2801 
04 AC DD 0014 PUSHL CONTINUE > 2803 
C96 01 FB 0148 CALLS #1, INIT_SAVE_TAPE ; 
04 00150 178: RET > 2805 


— 


o o : -j1 eo 
‘ot-beo™ init out Say “SAVE. - initialize save set for output 18-Sep-1984 9 3:65 BACKUP SR eSuarres ESAVE. OE B82: 31 — B 


<< 


; Routine Size: 337 bytes. Routine Base: CODE + 093¢ 


ne Oar ee —---—- - - - . . -_ 


— 
uw 
~o 


SPSS SSSELESF EES SANS URNS SEAS OER 


S333 


We wr 


a a a ed ed a a ed dd 
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Write Save Set 1$-sep-19 4 91: ) 7:62 orm Bliss-32 V4.0-74 
WRITE _BUFFER = write a save set buffer 14-Sep-1984 11:54:09 
ZSBTTL “WRITE_BUFFER = write a save set buffer’ 
GLOBAL ROUTINE WRITE_BUFFER (BCB) : NOVALUE = 
+¢ 


FUNCTIONAL DESCRIPTION: 
This routine writes the indicated buffer to the output save set. 


CALLING SEQUENCE: 
WRITE_BUFFER (BCB) 


INPUT PARAMETERS: 

BCB: address of buffer control block 
IMPLICIT INPUTS: 

NONE 
OUTPUT PARAMETERS: 

NONE 


IMPLICIT OUTPUTS: 
NONE 


IN. ALA IPOROPOROPORORU UR 4 3 


ROUTINE VALUE: 
NONE 


WN S OCONEE WN (OOS VNOU EW" 0 


PRIPIPIPIPIPIPDPIPIMIPIAPINPIPIPNIAIININAIAIPIPIN AI a tt st tt kh kd th ee et 


: SIDE errectse 
833 

836 -- 

837 

838 BEGIN 

839 

840 BUILTIN 

841 INSQUE , 
Hk CRC; ! compute CRC instruction 
844 MAP 

ait BCB : REF BBLOCK; ! buffer control block arg 
Bee LOCAL 

ace srarus. REF BOLOCE } poner ieee value 

: e@ . ou u 

BS BUFFER : REF BBLOCK, : 1/0 buffer f 

851 XOR_BUFFER : REF BBLOCK,  ! KOR accumulation buffer 
$2¢ Pl, ! buffer pointer 

Bez P2; ' buffer pointer 

TH EXTERNAL ROUTINE 

2$ GET BUFFER ' get an 1/0 buffer 
857 FREE_BUFFER; i free an 1/0 buffer 
beg Do the block preamble formatting. 
: ! 
862 BUFFER = .BCB(BCB_BUFFER); 


BACKUP.SRCJWRITESAVE .852;1 


P 46 
ead (8) 


. 7 
WRITESAVE ave Set 16-Sep-1984 01:13:47 AX-11 Bliss-32 V 
¥Oe~b80 BUFFER - write @ save set buffer 14-Sep Laat 9: 4:09 BACKUP’ SRE TUR ITESA ive. € B82: 1 
CHSFILL o SOvicOre sey (BBHSW_FID) BUFFER); 
CSE uf ; BBHSK_LENG Norn = = sevreorr set (BBHST “RESERVED2), BUFFERCBBHST_RESERVED2)); 
8 


BBHSW-OPSYS) = BACK KOPSK K_OP péy 1S; 
BBHSW-SUBSYS] = BACKUPSR_BAC 
HSu~APP cj . BACKUPSK OD PAT AbLOCK: 


ei 

RWSV_ 

RwWSV 1B 9Ck cOUNT™ > + Rusy Out: =BLOCK. COUNT + 1; 
Bur FERC BS NOMBER RWSV-OUT- SEQ 
BUFF R ine vai STRUCL vi z “BeHSK LEVEL; 
‘6 F FERC BBH 

4 

4 

4 

4 

4 

4 

3 

4 

4 

4 

4 

4 

O— 


=.COM_SSNAMELDSCS$W_LENGTH); 
HSCOPY ( 20M, SSNAM 


BUFFER feo PL ocKS E)"= 2 evsaearatee st sed; 
Om_SSNAME =H RR 


ae 
SUrreRtapney s _SSNAMEJ+#1); 


! Accumulate the block into the running XOR. If the is the first block 
of a group, we have to allocate a new buffer. 


JF; QUALCQUAL _GROU_VALUE] NEQ 0 


BEGIN 
EO ete OUT_GROUP_COUNT EQL 0 


BEGIN 
RWSV_XOR_BCB = GET_BUFFER 

XOR_ BuFFER = .RWSV-XOR Bcotsie.s UFFERI; 

catece S12z€7 FFER” .XOR BUFFER); 


CHSMOVE ( 
FREOBHSU” APPLIC) = OBACKUPSiC _XORBLOCK; 


XOR_BUFFER 
ELSE 


WAREEEEE 


PPAAAMMI 
a 
2 


END; 
END; 


8c ed ed ed od ed 


N—SS —OOGNO NEWCO OONOU EWN oO BDNAVN EW OOOO 
RIPPIN IPYPIPIDINPPININIAIPPIAINIANNININIMYPININIPIPO PPO PUPONOPONnonononononofnonofnonofnofnuny 
SISIIISLGISLS Sssssseceses s 

CONOULS WN —O 0 -_ NO 


>) 2 8 tt 


a ak ak ts et td tt wt a ws = a 


SESSSSSSeSsssees 


0050 = &F 
18 


1F 


SSS sess sess 
Oe Oe Oe Se Oe Se Oe Se Ge Se Se Oe Ge Se Oe Se Se Se Ss Oe Ss Ge Os Se Oe Oe Se Se Gee See 


AINA BBE & BHM MUMPPIPPPOPOPONIPUNUPNINONOPD 


ee 


n< 

“ea 
mu 
@ 
‘7 


write a save set buffer 
: Finally write the block. 


WRITE BLOCK (.6(B); 


the group count; 
ne nat orite the KOR b 
about to be arieken by iw our 5 fave onyuey. 


7 
ISrseoctgee O1:]5:47 — yaet? eLisgat2 v4.0n743. 


if the group is full, write the XOR block. 
lock if we are into EOV, since one is 
In the boundary case, 


group of n+] 


blocks 


rather oan, another XOR” grove of one block® or col cov. reduces by 


' 

i 

i 

this means that we can th an 
: maximum number o 


one the 
ae -QUALCQUAL_GROU_VALUE] NEQ 0 


BEGIN 
rT aed OUT_GROUP COUNT = 


blocks written after C 


sRWSV_OUT GROUP COUNT 


EOV 


+ 1; 
-RwSv-OuT_ GROUP COUNT oh -Q0AL CQUAL_GROU_ VALUE] 


ND NOT 7COM~FLAGSECOM_EO 
THEN 


BEGIN 
RWSV_OUT_SEQ = ehvsy -ouT SEQ + 
RWSV- OUT epbOck gC RwSv out’ “BLOCK 
XOR_BuFFE er} = Rw $V=0 
WRITE BLOCK ( BShSt ure HOR CB); 
RWSV gut GROUP _CO OuNT ; 
RWSV_XOR_BCB ="0; 
ND;~ 
END; 


O3FC ssa 
23 00000000" EF 43 44 
33 Be + 0000 
wy BO 8 Oe 
67 0018 
00 6E 00 2c 19 
pore C 1€ 
67 04000100 F 4 0021 
04 A? 00010001 F DO 00028 
69 06 000 
08 AY 06 000 ¢ 
08 A 9 00 000 
A? 0101 F 0039 
4 ee AQ 80 0005F 
A 8 A 5 0044 
A? 084 ¢ 0049 
00 0088 09 1 C9 2C O004F 
1 A? Bees 
62 AY 95 OO0SA 


COUNT + 1; 


_SEQ; 


is raised. 


! End of routine WRITE_BUFFER 


GET_BUFFER 
WRITE _BUFFER, Save R2,R3.R4,R5,R6,R7,RB,R9 
RSV. OuT_SEa, R R9 


Teche) ‘BUFFER 
(SP), #0, #80, (BUFFER) 


#0, (SP), #0, #24, 232(BUFFER) 
907109120. mettal 
Rusv OUT SE 
RuSy-puT-eeee “sieurren) 
m3 es FFER 
VOL HUMBER 34 (BUFFER) 
Binds 40(8uU 


SSN NARE , » AB CBUEFER) 
EOn-83 OM_SSNAME*4, #0, #31, 
BurreR 


QUAL +78 


™m 


| f 7 
WRITESAVE Write Save Set 16-Sep-1984 01:13:47 AX-11 Bliss-32 V4.0-7%4 
| WRITE_BUFFER = write @ save set buffer 1 mat 9142559 BACKUP. SRC JWRITESAVE .832;1 
4c 1 D FL 64 
| 10 A 93 2 STB  §RWSV_OUT_GROUP_COUNT 
| 1A 1 2 BNEQ = 
0 Q f CALLS . GET_BUFFER 
| 08 A D MOVL RO, RWSV_XOR BCB 
5 oc A p F MOVL. 12(R0), ROR BUFFER 
be 6 A ; MOVCS 8(R8), (BUFFER), (XOR_BUFFER) 
06 Ab 92 a £8 nove a. 6(x0R_BUF FER) 
0 8 Ag 9 7E 1$: MOVL $RWSV_XOR_BCB, RO 
6 A 008 MOVL  12(RO0), ROR_BUFFER 
1 A E MOVAB (BUFFER) ,~P1 
A VAB (R6), Pe 
8 9 MOVZWL 8(RB) 
: C 9 SuBL¢ #32, R 
C6 0009 DIvi2 #16, 
52 06 00098 INCL ' 
C 11 0009A BRB + 
80 1 CC 0009C 28 XORL (P1)+, (P2)+ 
0 1 CC 0009F XORL (P1)+, (P2)4 
80 1 CC OOOA XORL (P1)+, (P2)+ 
80 1 ef OA XORL (P1)+, (P2)+ 
Fi : F5 OO0AS 3S: SOBGTR J, 2$ 
58 DD 000AB 4$: PUSHL Rb 
FSFE OC 01 FB OOOAD CALLS #1, WRITE BLOCK 
50 62 AY 9A 00082 MOVZBL QUAL+78, RO 
25 13 000 BEQ. ~=séSS 
10 Ad 96 00088 INCB = RWSV_OUT_GROUP_COUNT 
50 10 a9 91 00088 CMPB = RWSV~OUT“GROUP“COUNT, RO 
1C 1 OO00BF BLSSU 
17 OO8—E C9 €E8 000C1 BLBS  COM-_FLAGS, 5$ 
69 06 445 INCL RWSV_OUT_SEQ 
08 Ad D6 000C INCL § RWSV"OUT“BLOCK_COUNT 
08 Ab 69 00 BOR MOVL RWSV_OUT"SEQ, 8(XOR_BUFFER) 
C8 Ad DD OOOCF PUSHL RWSV~XOR“BCB 
FSDA CF 01 FB 0000 CALLS #1, QRITE BLOCK 
10 Ad 94 0000 CLRB  RWSV_OUT_GROUP_COUNT 
C8 Ad 04 000D LRL = RWSV=XOR™ 
04 00000 5$: RET 


; Routine Size: 222 bytes, Routine Base: CODE + OA8D 
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You~b00.” FIN Gul SAvE'® finish writing save set 1$-sep-1904 91:42:69 YoAckue Seedual resave 682; 
GLOBAL ROUTINE FINOUT_SAVE CCONTINUE) "* NOVALUE = 
‘ee 
FUNCTIONAL DESCRIPTION: 
This routine completes the writing of the output save set. 


CALLING SEQUENCE: 
FIN_OUT_SAVE (CONTINUE) 


INPUT PARAMETERS: 
CONTINUE: FALSE if this is the real end of the save set 
TRUE if this is the end of a save set volume 


IMPLICIT INPUTS: 
NONE 


OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 
NONE 

SIDE EFFECTS: 
NONE 
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BEGIN 
40 
41 BUILTIN 
ry! r 
4 INSQUE, 
4G REMQUE ; 
45 
*$ LOCAL 
4 STATUS ' general status value 
48 10_STATUS : VECTOR C4, WORD], ! 1/0 status block 
49 : BBLOCK, ! pointer to buffer control block 
450 XOR _BUFFER : REF BBLOCK, ! buffer holding XOR block 
451 FAB : ' output FAB 
$26 LABEL BUFFER : BBLOCK ! buffer for tape labels 
45 DESCRIPTOR : VECTOR ! descriptor for above 
454 BLOCKS_ALLOC, ! blocks allocated or returned 
455 vcB : REF SBLOCK ! VCB of current disk volume 
rts | RECATTR : BBLOCK FATS¢ LENGTH], ' record attributes buffer 
45 CONTINUE FID : BBLOCK EAgSC.LENGtN » | Save set extension file ID 
428 ATT_CONTROL : BBLOCK (20); “! attribute control List 
460 BIND 
461 ATT_CONTROL1 = ATT_CONTROL + g : BBLOCK, 
462 ATT_CONTROL2 = ATT_CONTROL + : BBLOCK, 


aero) 
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WRITESAVE Write Save Set 16-Sep-1984 01:13:47 AX-11 Bliss-32 v4.0-74 Pa 1 
Voi-b60 FIN_OUT_SAVE = finish writing save set 1o-308=198¢ a: 4:09 BACKUP .SRC JWRITESAVE .832;1 - (3) 


ATTR_END = ATT CONTROL * 16; 


at 
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wait for 1/0 completion 
signal file related error 
free an 1/0 buffer 
allocate an 1/0 buffer 
switch to desired disk volume 
extend (or truncate) save set file 
dismount output disk volume 
coapiete dismount 
initialize input save set 
set continuation volume for input 
veri y ’ save set volume 

n 


WAAL AL AO ROPOROFOROPONUTON 2 2 


T_IN_SAVE 
READY_NEXT VOLUME, 
SAVE_VERIFY_REEL, 
FIN_IN_SAVE 


BPP EE & I I & 
SISVSARANASSSLF 


WN (SO OONAVES WN (“OOODNOUE 


3 3 

3 1 

3 1 

; 1 

3 1 

3 3 

s 9 

s 3 

yy 

s.% 

3 

3 i 

3 1 0 

3 7 

31 TN_SAVE; finish input save set 
31 0 LOAD; unload a tape volume 
3 3 0 SKIP_TM skip tape marks 
3; 1 0 KE"HDR1, generate file header label 1 
3 1481 0 E_HDR2 generate file header label 2 
: 1488 WRITE_LABEL, write file header Label 
3 re 5 _TM; ' write tape mark 
3; 1485 0 ' Write the final XOR block. 

3 1038 0 ; 

3 14 0 

3; 1488 0 IF .RWSV_OUT_GROUP_COUNT NEQ 0 

3: 1489 035 THEN 

3 1490 0 $ BEGIN 

3 1491 0 XOR BUFFER = .RWSV_XOR BCBCBCB_BUFFERI; 

3 1238 038 RWSY_OUT_SEQ = -RWSV_OOT_SEQ +71; 

; 149 039 RWSV-OUT-BLOCK_COUNT™= .RwSv OUT_BLOCK_COUNT + 1; 

3 1496 040 XOR_BuFFERCBBHSL_NUMBER) = .RwSV_OUT_SEQ; 

3 1495 041 WRITE BLOCK (.RWSV_XOR_BCB); 

: 1436 Og RWSV_ROR_BCB = 0; 

> 149 04 RWSV-OUT-GROUP_COUNT = 0; 

3: 1498 044 END; 

3; 1499 045 

3; 1500 nee ! Wait for all pending writes to complete. 

3; 1501 04 ‘ 

3 1eR6 048 

; 150 049 UNTIL REMQUE (.OUTPUT_WAIT(OJ, BCB) 

: 1504 030 DO 

; 1505 05 BEGIN 

3 1208 026 WAIT (.BCB); 

3 3 05 FREE_BUFFER (.BCB); 

3; 1508 054 END; 

: 1890 cil 2 & Oe eis cuneed Se & Bite, Steen 

3 ‘ e output is a e, close it. 

: 1511 b39 ! ° 

3 131g B28 

3; 151 05 FAB = .RWSV_SAVE_FAB; 

> 1514 060 @ IF .QUALCOQUAL_SS“FILE) 

3; 1515 061 THEN 

; 1218 bo¢ BEGIN 

> 151 06 IF NOT .QUALCQUAL_VERI) 

3; 1518 064 

; 1519 065 4 BEGIN 


| ? [ 
/WRITESAVE Write Save Set 1hes6 “19 1:13:47 AX-11 Bliss-32 V4.0-74 e ‘ 
vOe-000 FIN.OUT_ SAVE = finish writing save set e-8ep=188e 34:52:69 YoAcKuP snesualresave 42:1 aoe 35 

STATUS = $c. ose (FAB = .FAB); 

IF NOT “tA U 

HEN FILE_ERROR (BACKUPS CLOSEOUT+STS$K_SEVERE, .FAB, 

eat -FABLFABSL_STS)J, .FABLFABSL_SfvJ); 

END 


: Generate and write the trailer label set for tape output. 
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ELSE 
If ;,BBLOCK CFABCFABSLDEVI, DEVSv.saD] 
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BEGIN 
WRITE_TM (); 


OOOO 


WN "OOO NOUS wry 
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IF CONTINUE 
085 THEN LABEL_BUFFERCHD1$L_HDIL 
ELSE LABEL 8 FERCHDI$L _HDIL 
§ = KC 
gstniet 


61$T_BLOCKCNT); 


5 

2 084 
p] = "EOvl' 
p = ‘EOF’; 

> LABEL ~BUFFERCH 

5 


SLES 


OWONOUES WN “CO OBO UV EWN oO 
vuvv 
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MAKE_HDR2 (LABEL_BUFFER); 
F TINU 


If . 
098 THEN LABEL_BUFFERCHDISL adele = *EOV2 
1L1DJ) = ‘EOF2 


3 oO 
3} 
Pee ee eee et tT ee 


ELSE LABEL BUFFERCHD1S$L_HD 
WRITE_LABEC (LABEL_BUFFER) 


: Mark the end of tape with two tape marks. 


PPA & 


rah ah 4h 4h Ab Ab Ab th Ab Ah abode ah dh dl 
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Www 


CONTINUE 

THEN UNLOAD (); 

SDASSGN (CHAN = .RWSV_CHAN); 
RSV_CHAN = 0; 
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! Finish up sequential disk. Return unused blocks, set up the record 
: attributes, and deaccess the file. 
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Write Save Set 16-Sep-1984 01:13:47 AX-11 Bliss-3 Pa 4 l, 
FIN Gut SAV - finish writing save set 12-808-1 382 te 4:09 BACKUP. SRC vai Tesave 6 832;1 ” (33 
1 ); ‘ 
1 STA_DISMOUNT (.RWSV_VOL_NUMBER) ; ‘ 
1 If = CONT INUE { 
1 HEN { 
1 BEGIN { 
185 10W (CHAN = = Syrneny vCBCVCB_CHAN], { 
1 FUNC = 10 Kb { 
1 g ); { 
1 8 END; | { 
1 END; 
1 END; ( 
13) END; 
198 : Report the number of soft write errors. | 
195 2. | ! 
196 IF .RWSV_OUT_ERRORS NEQ 0 | 
197 THEN FILE_ERROR (BACKUPS_SOFTWERRS, .FAB, .RWSV_OUT_ERRORS); | 
199 : Now do the verify pass, if requested. 
01 : 
0¢ IF ,QUALCQUAL_VERIJ | 
0 THEN | 
04 BEGIN | 
05 SIGNAL (BACKUP$_STARTVERIFY); " 
06 EOM_FLAGSLCOR VERIFYING] = TRUE; { 
0 IF [RWSV_SEG_RUMBER { 
08 THEN INIT_IN7SAVE (TRUE) | 
09 ELSE \ 
10 IF .BBLOCK CFABCFABSL Devi. DEV$v_SaD) { 
1 en Sener NEXT LV ae # \ 
ig RWSV- IN YERORS ": aa 
14 RWSV-IN-XORUSE = 
15 SAVE VeERLEY REE LO; 
1g FIN_IN - CONTINUE); i 
i COR “FURGSLEOM“VERIF YING) = FALSE: 
1 
0 2 IF .RWSV_VOL_NUMBER GEQU 255 
1 THEN FILE ERROR CBACKUPS -MAXVOLS, .FAB); 
5 IF .CONTINUE THEN SIGNAL (BACKUPS$_RESUME, 1, .RWSV_VOL_NUMBER+1); : 
5 1 END; ! End of routine FIN_OUT_SAVE | 
4C SA 36 21 00868 P.AAG: “ASCII \!62L\ ; 
0000004 008 O P.AAF: <LONG 4 : 
0000000" 00874 .ADDRESS P.AAG ; 


-EXTRN STA_DISMOUNT_OUTPUT 
"EXTRN STATDISMOUNT> INIT. IN_SAVE 
“EXTRN REABY_NEXT_VOLUM 


7 
“WRITESAVE Write Save Set these -1984 01:13:47 AX-11 Bliss-32 V4.0-74 Pp 5 
“YO4~000 FIN.OUT SAVE = finish writing save set 1e-8op=198e 84:52:69 EBACKuP SAeSuarreSave 52:1 a9e 33 
.EXTRN SAVE VERIFY REEL 
eEXTRN FIN_IN UNLOAD 
*EXTRN SYSSCLO ose, CES DAS SGN 
-EXTRN SYSS$OQl10W 
OFFC 00000 ENTRY FIN_OUT T_ SAVE, Save R2,R3,R4,R5,R6,R7,RB,R9,-; 2953 
B 000000006 00 9€ 0000 movaB FILE R ERROR , R11 : 
sh titty 86 EF 9E 88 MOVAB RWS y VOL -NUMBER. R10 : 
E FF54 CE 9 1 MOV -172tSP) : 
C AA 9 1 TSTB = RWSV “out” * GROUP. COUNT + 3034 
20 1 1 BEQL=Sésé18 : 
50 16 AA D 1A MOVL § RWSV_XOR_BCB, RO : 3037 
1 0¢ Ad 00 0001 MOVL 12(R0), ROR BUFFER : 
4C AA D6 000 INCL  RWSV_OUT_SEQ : 3038 
54 AA +4 00 INCL RWSV- OUT “BLOCK : 3039 
08 Al 4c OAA 0028 MOVL § RWSV~OUT"SEQ, Bcaun. _BUF FER) : 3040. 
50 DD 0002D PUSHL RO + 3041) 
F592 —sCF 01 FB 0002F CALLS WRITE BLOCK F | 
146 AA D4 000 CLAL nus CB ; 3042, 
SC AA 94 00037 CLRB ss RWSV “byte GROUP_COUNT : 304 
52 FF2C DA OF OOO03A 1$ REMQUE @O0UTPUT_QAIT, CB 3 3049) 
14 1D 0003F BVS 2$ F 
52 DD 00041 PUSHL CB + 3052, 
000000006 00 : FB 00043 CALLS #1, WAIT : 
: DD 0004A PUSHL 8CB : 3053 
000000006 00 07 FB 0004 CALLS #1, FREE_BUFFER : 
E5 11 0005 BRB 1$° + 3049 
56 0c AA 00 00055 28: MOVL § RWSV_SAVE_FAB + 3059 
26 6F AA 03 3 0059 BBC #3, QUAL+TS, dog : 3060 
6D AA 95 0005 TSTB © QUAL +13 : 3063 
1E 19 0006 BLSS = 38 ; | 
56 DD 00063 PUSHL FAB : 3066 
000000006 00 or FB 0065 CALLS #1, SYSSCLOSE ; | 
0 pO 0006C MOVL RO. STATUS : | 
F 53 c O06F BLBS STATUS, 3$ : 3067. 
E 08 Ab 7D 00072 MOV &8(FAB). =(SP) : 3069 
56 DD 0076 PUSHL FAB : 3068 
000000006 8F ODD 007 PUSHL  #BACKUPS$_CLOSEOUT+4 ; 
68 04 FB O007E CALLS #4, FILE-ERROR ; 
01F3 31 00081 3$: BRW 18$ > 3060, 
59 04 at 09 0084 4$: MOVL CONTINUE, R9 > 3084 
03 40 Ab 0 5 0088 BBS #5, 64(FAB), 5S : 3078 
ooac 31 O08 BRW 12§ ; 
000000006 00 00 FB 30 5$ CALLS #0, WRITE : 3081 
48 AE 9F 0009 PUSHAB LABEL BUFFER : 3083 
000000006 00 1 FB 009A CALLS al. MAKE _HDR1 ; 
OA 9 £9 000A1 BLBC $ > 3084. 
48 AE 31564F45 f bo OAs MOVL n887 9973, LABEL_BUFFER ; 3085 
48 AE 31464F45 BF 06 GORE 6$: MOVL #826691397 rhABeL _BUFFER + 3086 
4 E 6 p B6 7$: MOVL #6, DESC : 3087. 
AE 7E AE OE OOBA MOVAB LABEL BUF ER 34 DESCRIPTOR+4 : 3088 
54 AA DD 000BF PUSHL RSV ut ock_CounT ; 309 
44 AE OF O0ce PUSHAB DESCR Bron : 
7E D4 000¢ CLRL : 
FF2D CF 9F 000C7 PUSHAB  P.AAF : 


1 


LP PP ememem hae 


"7? 
few vE Write Save 16-Sep 1:13:47 AX-11 Bliss-32 V4.0-74 
Woe 500 F IN_OU oS AVE. - S tinish writing save set 14-Sep 71383 9 hz: 09 BACKUP. SRCJWRITESAVE.832;1 
pegembites: 2: 8 OE OOF o8 Ushaa CAGED BUFFE 
wooo0n0ds 00 1, OF Fe BOs GALLS! A onIvE oe. 
000000006 00 FB OOODF CALLS fl. RAKE _HDR2 
A E oes BLBC gs 
48 AE 32564F45 . p E MOVE He 17189, LABEL_BUFFER 
48 AE 32464745 BF pd oF gs: MOVL @# 43468613 LABEL _BUFFER 
48 F F OO0FB 9$: PUSHAB LABEL FFER 
0000006 FB OOF CALLS BL RTTE. LABEL 
9000006 6 FB 10 CALLS WRITE-TM 
0000006 FB 001 ¢ CALLS » WRI IES ™ 
E CE 0011 MNEGL fe. » (SP) 
000000006 0 FB 00116 CALLS 1 SKIP. ™ 
6D AA 95 0011D TSTB +1 
17 19 001 BLSS 
07 59 €9 001 BLBC ~—saR9,_:«108 
000000006 00 00 FB 001 CALLS 40, UNLOAD 
10 AA DD 0012C 108 PUSHL Ru 
000000006 00 01 FB OO12F CALLS USYSSDASSGN 
10 AA ps 01 CLAL ry ugy> 
0138 31 00139 118: BRW 18$ 
0608 cA 0604 CA bo 01 ¢ 12$: MOVL iret MTL, CURRENT MTL 
E A 3C 0014 MOVZWL aySV vOL_NUMB -(S5P) 
000000006 00 1 FB 00146 CALLS SV RMITCH. VOLUAE 
5E DD 00140 PUSHL 
43 44 AA CE OO14F MNEGL aUSV ALLOC. ents? 
000000006 0 0 FB 00153 CALLS #2, § STA 
58 DO 0015A MOVL rhe 
0D 58 €8 0015p BLBS srAtus. 13$ 
0140 8F BB 00160 PUSHR <R6,RB> 
000000006 8F DD 00164 PUSHL ReACKUsS. CLOSEOUT #4 
68 3 FB O16A CALLS RROR 
5 50 AA D 0016p 13$:  MOVL Rug OUT"VBN, R7 
48 AA FF 6A?) (9E 00171 MOVAB Re eR?) RwSV_EOF 
20 00 oF sn 00 2¢ 0176 MOVCS #0, (SP), #OT #32, RECATTR 
20 AE 01 90 oe MOVBs#1, RE ATER 
¢2 AE OA A B0 Ogi MOVW QUAL4#72, RECATTR+2 
AE OA cA 80 0187 MOVW L+72, RECATTR+16 
é 9 €9 0018D BLBC Osi 
OOFF BF 6A 81 0190 CMP Ru V_VOL_NUMBER, #255 
1F 0198 BGEQU 
8 AE 7FFFFFFF a DO 0019 MO¥L eleregtey RECATTR+8 
4 AE 7FFFFFFE 8F DO 0019F MOVE 147 PREGATIRG4 
18 AE 00070007 8F D0 001A7 MOVL #458759. 1D 
1¢ AE 6A o1 al Var ADDWS RWSV yoL THURBER. CONTINUE _F1D+4 
28 OA 7 10 9 0186 14$: ROTL #16, R7, RECATTR«8 
5 4 44 AA C1 001B ADDL3 RWSV_ALLOC RO 
50 6 cg 1c ADDL2 BLOCRS MALLOC. "eo" 
p 1¢ DECL R 
24 «AE 50 10 9¢ 001C ROTL #16, RO, RECATTR+4 
18 AE D4 OOICA CLRL —« CONTIN 
1¢ AE B4 1Cp CLRW CONTINUE “FID+4 
04 AE 00040020 BF DO 001D0 158:  MOVL #262176, ~ATT_CONTROL1 
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WRITESAVE Write Save Set 16-Sep-19 1:13:47 AX-11 Bliss-32 V4.0-74 P 7 
‘Vos FIN_OUT_SAVE = finish writing save set 18-808-1982 ot; 4:09 YBACKUP. SRe WRITESAVE .832;1 — ria 
8 AE 0 AE 9E 00108 MOVAB RECATTR, ATT_CONTROL1+4 : 3158 
of AE 00270068 8F 06 1pp MOVL #5565910, ATT_CONTROL2 + 3159 
AE 18 AE E 1E MOVAB CONTINUE_FID,~ATT_CONTROL2+4 + 3161 
14 AE D4 OO1EA CLRL  ATTR_END ; 168 
7E 04 OO1ED CLRL = = (SPT : 31 
08 AE OF OOTEF PUSHAB ATT CONTROL : | 
7E 7C OO1F2 CLRQ = =(SP) : 
7E iC 1F4 CLRQ = =( SP) : 
7E 7¢ Ife CLRQ = = (SP) : 
F8 AD «OOF OOTF PUSHAB 19 STATUS : 
36 DD OO1FB PUSHL #52 : 
10 AA DD OO1F PUSHL RWSV_CHAN : 
7E 04 CLRL (grt : 
000000006 90 : 0 CALLS #12, STA_QIOW : | 
: DO 00 MOVL RO ATOS : 
g : 020¢ STATU : 3169 
8 FB AD SC 6 OF MOVZ2WL IO STATUS, STATUS : 
0D 8 ES 00213 BLBS STATUS, 17$ + 3170) 
0140 8F BB 00216 16$: PUSHR #*M<R6,RB> : 3171) 
000000006 8F DD 0021A PUSHL #BACKUPS_ CLOSEOUT +4 : | 
68 3 FB 00 9 CALLS #3, FILE-ERROR : 
9 bp 0223 17$:  PUSHL Rd : 3172. 
7E 6A C 00225 MOVZWL RWSV_VOL_NUMBER, -(SP) 3 
000000006 00 02 Fe 0228 CALLS #2, STA_BISMOUNT_OUTPUT : 
6D AA 95 O022F TSTB  QUAL+13 + 317% 
43 19 00232 BLSS ; | 
7E 7C 00 CLRQ = =(SP) : 3180. 
7E 7¢ 00 6 CLRQ—s_ = (SP) : 
7E 7C 00 CLRQ = = (SP) : 
7E 7C OO23A CLRO - : 
FB OAD OOF 00 C PUSHAB 10 STATUS F | 
34 OD 0023F PUSHL ; | 
10 AA DD 00241 PUSHL RWSV_CHAN : | 
7E D4 00244 CLRL. = ; | 
000000006 00 OC FB 00246 ALLS #12, STA_Q10W F 
7E A 3C 00240 MOVZWL RWSV_VOL"NUMBER, -(SP) : 3181) 
000000006 00 1 Fs 0 30 CALLS #1, STA_BISMOUNT ; 
1D 9 E 0 BLBC =—«_«aR9._:«*18S : 3182 
7E 7C 0025A CLRO 0 = (§P) : 3187 | 
7E 7C 0025¢ CLRQ = = (SP) ; 
7E 7C€ 0025 CLRQ  =<(SP) ; 
43 7¢ 0 6 CLRQ = =(SP) F | 
ze 0 20 6 va #1, =(SP) ; 
3 06p¢ CA p 6 OVL CURRENT _VCB RO : 
E 08 AO 3¢ A MOV2WL 8(RO), =(SPS : 
7E 04 $ CLRL ss = (SP) : 
000000006 90 OC FB 00 CALLS #12, SYS$Q10W ; | 
58 AA Hi 77 18%:  MOVZWL RWSV_OUT_ERRORS, RO > 3196) 
Dp 1 7B BEQL 198 ; | 
0 DD 0027D PUSHL RO : 3197. 
6 DD 0 7F PUSHL FAB ; 
000000006 &F DD 1 PUSHL #BACKUPS_ SOF TWERRS ; 
68 3 F 7 CALLS #3, FILETERROR ; 
6D AA ? A 198: Ist QUAL+ + 3202 
000000006 ar DD 0028F PUSHL HBACKUPS STARTVERIFY > 3205. 
000000006 00 1 FB 00295 CALLS #1, LIBSSIGNAL ; 


a 
WRITESAVE Write Save Set 16-Sep-1984 01:13:47 AX-11 Bliss-32 V4.0-74 P 8 
“YO4~000 FIN_OUT_SAVE = finish writing save set 12-808-138e 94332585 BACKUP’ SRETURITESAVE B42: 1 os (33 
OODA CA 08 8 Te BISB82 #8, COM_FLAGS : 
| 02 AA 63 S Al TSTw  RWSV_SEG_NUMBER : 3308 
y 0b g02A6 em ft : 3208 
000000006 00 1 Fe AB CALLS a, INIT_IN_ SAVE ; | 
07 40 A g é1 B1 20S: BBC #5, 64(FAB), 218 : 3210 
000000906 0 0 Fe Be CALLS #0, READY_NEXT_VOLUME : 3211 
C AA 40 AA D 218: VL —« RWSV_IN_VBN_O, “RWSV_IN_VBN : 1¢ 
3 AA D4 2 CLRL RWSV_IN-ERROR : 3213. 
| 000000006 00 am 00 43 0 +. cALLS #0. SAVE VERIFY REEL : Fd 
000000006 00 1 FB § CF CALLS #1, FIN_IN SAVE F 
OODA cA 8 BA 00206 BICB #8 LAGS 3 3317 
OOFF &F 6A B1 00208 228: CMPW  RWSV_VOC_NUMBER, #255 ; 3220. 
1F OO2E BLSSU -23$ 3 
6 0D 99 E PUSHL FAB 3 3221 
000000006 BF DD 00264 PUSHL #BACKUPS_MAXVOLS : 
68 2 FB 90 EA CALLS #2, FILE-ERROR : ) 
14 06 aC : ED 23$: BLBC CONTINUE, 24$ : 3223 
7E 6A 3C 002F1 MOVZWL RWSV_VOL_NUMBER, -(SP) : 
6E 06 OD2F4 INCL (SP) : 
01 DD 002F6 PUSHL #1 : 
000000006 8F DD 0028 PUSHL #BACKUPS RESUME : 
000000006 00 03 FB 39 FE CALLS #3, LIBSSIGNAL 3 
04 00305 24$: RET : 3225 
; Routine Size: 774 bytes, Routine Base: CODE + 0878 
: 1680 3226 
: 1681 3227 ND 
: 1682 3228 0 ELUDOM 
-EXTRN LIBSSIGNAL 
: PSECT SUMMARY 
: Name Bytes Attributes 
: COMMON 124 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, OVR NOPIC. AL 1GN(2) 
3 CODE 710 NOVEC.NOWRT, RD, EXE.NOSHR, LCL. REL, CON.NOPIC.ALIGN(2) 
; Library Statistics 
: seceeccece Sym Ols eeeeee-- Pages Processing 
; File Total Loaded Percent Mapped Time 
.$255$DUA28:(SYSLIBILIB.L32;1 18619 145 0 1000 00:01.8 
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8 
Write Save $ 1b-sep-19 91: ] 3:67 AX-11 Bliss-32 V4.0-74 Page 59 
F IN_OU “Save = - finish writing save set 14-Sep-19 1:54:09 BACKUP. SRC JWRITESAVE .852;1 (9) 
; COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL .OPTIMIZE)/LIS=LIS$:WRITESAVE/OBJ=OBJS:WRITESAVE MSRC$:WRITESAVE/UPDATE=(ENH$:WRITESAVE) 


Size: ergy etoet 2220 data bytes 


; ‘egy Ale ate 2 
498 pages 


; Elap Time 

3; Lines/CPU Min: ree" 
: 8 

3; Memor ‘lect : 

; Compilation Complete 


‘es 
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